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JX 




S 


a 




CO m 


IX ix]l 


ex u a 


oc 




10 vC U OC 


a« 




a. 


a 




¥~i 


< z 


a CO 


a. 




M a 












oc 


M 


.0 






•<3: b3 


7-4 




•-* 


CM 




03 w 


U b. 
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1045 






1046 






1047 






1048 






1049 






1050 






1051 






1052 






1053 






1054 






1055 






1056 






10S7 






1058 






1059 






1060 






1061 






1062 






1063 






1064 




000000 


1065 


000000 


000002 


1066 


000002 


000000 


1067 


000004 


000006 


1068 


000006 


000000 


1069 


000010 


000012 


1070 


000012 


000000 


1071 


000014 


000016 


1072 


000016 


000000 


1073 


000020 


000022 


1074 


000022 


000000 


1075 


000024 


000026 


1076 


000026 


000000 


1077 


000030 


002442 


1078 


000032 


000340 


1079 


000034 


004310 


1080 


000036 


000340 


1081 






1082 




000000 


1083 




177776 


1084 




177776 


1085 




001200 


1086 




000240 


108 7 




000000 


1088 




100000 


1089 




000000 


1090 




000006 


1091 




000007 


1092 




100000 


1093 




040000 


1094 




020000 


1095 




010000 


1096 




004000 


1097 




002000 


1098 




001000 


1099 




000400 


1100 




000200 



.TITLE pen READEP-PUNCH TESTS 
.NLIST MC,MD,TOC 
.LIST ME 



|PRG0 - 


READER LOGIC 


TESTS 




IPRGI - 


READER TEST 






IPRG2 - 


PUNCH LOGIC TESTS 




IPRG3 - 


PUNCH TEST 






JPPG4 - 


PUNCH VERIFY 


ROUTINE 




IPRG5 - 


COMBINED READER-PUNCH 


TEST 


|PRG6 » 


PUNCH 2 CHARACTERS FROM SR. 


?PRG7 - 


READ 2 CHARACTERS AS 1 


PER SR, 


JPRG10 


- READ X CHARS 


, STALL 


y MSECS, 


IPRGU 


- PUNCH SPECIAL BINAPY 


COUNT PATTERN TAPE. 


JPRG12 


- READER SPEED 


PRINT ROUTINE. 


|PRGi3 


- PUNCH SPEED 


PRINT ROUTINE, 




,S0 








. + 2 




?UNASSIGNED TRAP 




HALT 






MACHERt 


.♦2 
HALT 




;SP OVERFLOW, BUS ERROR TRAP 




, + 2 




{RESERVED INSTRUCTION TRAP 




HALT 








. + 2 




; TRACE TRAP 




HALT 








.♦2 




JTRAP TO CALL lOx 




HALT 








,♦2 




IPOWER FAIL TRAP 




HALT 








EMTINT 




jEMT TRAP 




PRTY7 








OLYX 








PRTY7 






fLOCATIONS 40 THROUGH 


776 ARE 


FILLED WITH ,4.2 AND HALT, 




EMTXS0 








CCS177776 








P5WS177776 




;P5 Al>DRESS 




SPBOTS1200 








NOPa240 








OPENS0 




.-SUBJECT TO PROGRAM HODIFICA! 




MANUALSBIT15 








R0a%fc 








R6b%6 








PCs%7 








BIT15=100000 




;B1T DEFINITIONS 




BITl4s40000 








BIT13=20000 








bTT12=10000 








BIT11=4000 








BIT10S2000 








BIT9S1000 








eiT8s400 








bIT7s200 
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1101 




000100 


1102 




000040 


1103 




000020 


1104 




000010 


1105 




000004 


1106 




000002 


1107 




000000 


1108 




005726 


1109 




h»22626 


1110 




000340 


1111 




000300 


1112 




000240 


1113 




000200 


1114 




000140 


1115 




000100 


1116 




000040 


1117 




000000 


1118 




104400 


1119 




000007 


1120 






1121 




000046 


1122 


000046 


002340 


1123 






1124 






1125 






1126 






1127 






1128 






1129 






1130 




^00174 


1131 


000174 


000000 


1132 


000176 


000000 


1133 






1134 






1135 




000200 


1136 


000200 


000167 


1137 




001204 


1138 


001204 


200176 


1139 


001206 


000174 


1140 


001210 


177550 


1141 


001212 


177552 


1142 


001214 


177554 


1143 


001216 


177556 


1144 


001220 


000070 


1145 


001222 


000200 


1146 


001224 


000074 


1147 


001226 


000200 


1148 


001230 


177560 


1149 


001232 


177562 


1150 


001234 


177564 


1151 


001236 


177566 


1152 


001240 


000000 


1153 


001242 


000000 


1154 


001244 


000000 


1155 


001246 


000000 


1156 


001250 


000000 



JPOP THE STACK, gAME AS TST (6)+ 

yPUP STACK Twice, same as CMP (6)+,(6)+ 

.•PRIORITY LEVEL DEFINITIONS 



BIT6S100 

BIT5X40 

BIT4S20 

BIT3B10 

8IT2=4 

BIT1S2 

&IT0ati 

POPSP=5726 

POPSP2S022626 

PRTY7a340 

PRTY6B300 

PRTY5=240 

PRTY4=200 

PRTY3=140 

PRTy2si00 

PRTYIS40 

PPTY0={* 

DELAYX=TRAP*0 

BELLa007 

, = 46 

LOGIC 



jNOTEj PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
|A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 





. = 174 


DISPREGJOPEN 


swregj 


OPEN 




. = 200 




JMP 




, = ,♦1001 


SWRi 


5WREG 


DISPLAYIDISPREG 


PPSI 


177550 


PRBI 


177552 


PPSI 


177554 


PPBl 


177556 


RDRVTRI 


70 


RDRLVLi 


PRTY4 


PCHVTRl 


74 


PCHLVLI 


PRTY4 


TKSI 


177560 


TKB» 


177562 


TPSI 


177564 


TPBl 


177566 


PRGNUMS 


OPEN 


BRCTRI 


OPEN 


DVDNOI 


OPEN 


DVOUOTI 


OPEN 


MSECl 


OPEN 



I GO TO START OF PROGRAM, 



{READER CSR 

{READER BUFFER 

{PUNCH CSR 

{PUNCH BUFFER 

{READER INTERRUPT VECTOR 

{READER PRIORITY LEVEL 

{PUNCH INTERRUPT VECTOR 

{PUNCH PRIORITY LEVEL 

{LSR CSR 

{LSR BUFFER 

{LSP CSR 

{LSP BUFFER 

{CONTAINS CURRENT PROGRAHi 
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ilS7 


001252 


000000 


U58 


001254 


000000 


U59 


001256 


000000 


1160 


001260 


000000 


1161 


001262 


000000 


1162 


001264 


000000 


1163 


001266 


000000 


1164 


001270 


005376 


1165 


001272 


007666 


1166 


001274 


010216 


1167 


001276 


0U634 


1168 


001300 


012302 


1169 


001302 


012660 


1170 


001304 


013454 


1171 


001306 


013606 


1172 


001310 


014134 


U73 


001312 


014322 


1174 


001314 


014372 


1175 


001316 


014524 


1176 


001320 




1177 


001320 


003566 


1178 


001122 


002514 


1179 


001324 


003012 


1180 


001326 


003400 


1181 


001330 


003534 


1182 


001332 


004262 


1183 


001334 


003234 


1184 


001336 


003244 


1185 


001340 


002462 


1186 


001342 


002732 


1187 


001344 


002762 


1188 


001346 


002110 


1189 


001350 


014722 


1190 


001352 


015156 


1191 


001354 


014654 


1192 


001356 


014740 


1193 


001360 


015120 


1194 






1195 






1196 


001362 


000000 


1197 


001364 


000000 


1198 


001366 


000000 


1199 


001370 


000001 


1200 


001372 


000000 


1201 


001374 


000000 


1202 


001376 


000000 


1203 


001400 


000000 


1204 


001402 


i)00000 


1205 


001404 


000000 


1206 


001406 


000000 


1207 


001410 


000000 


1208 


001412 


000000 


1209 


001414 


000000 


1210 


001416 


000000 


1211 


001420 


000000 


1212 


001422 


000000 



KSTARTf 


OPEN 


CURTSTI 


OPEN 


RTNNOJ 


OPEN 


NXTST! 


OPEN 


ICTRi 


OPEN 


SCOPTRS 


OPEN 


PRGIDl 


OPEN 


PPGTABi 


PRG0 




PRGl 




PRG2 




PRG3 




PRG4 




PRG5 




PBG6 




PRG7 




PRG10 




PRGll 




PRG12 




PRG13 


EMTTAB! 






DLY 




EHLT 




SRSETT 




TYP 




TYPS 




5TAL 




ERR 




ERRl 




CHLT 




5TPTBV 




5TPTPV 




CHAIN 




OPTS 




CNTLU 




TTIN 




VALINP 




CKSi^RR 


ERBTl 


OPEN 


TMPI J 


OPEN 


TMP2! 


OPEN 


FPST! 


1 


COUNTJ 


OPEN 


TIbj 


OPEN 


HCNT: 


OPEN 


CBBUFI 


OPEN 


CHRIS 


OPEN 


CHP2! 


OPEN 


CHR3: 


OPEN 


CHria: 


OPEN 


CHR2AJ 


OPEN 


CHR3A! 


OPEN 


EPCTRS 


OPEN 


CTPAj 


OPEN 


CTPBs 


OPEN 



rCURRENT PROGRAM START ADDRESS, 

JCONTAINS ADDR OF CURRENT TEST* 

iCONTAINS CURRENT TEST #, 

fCONTAINS ADDR OF NEXT TEST, 

{CONTAINS CURRENT ITERATION COUNT 

ICONTAINS CURRENT SCOPE POINTER, 

jCONTAINS PROGRAM INDICATORS 

;PRG0 START ADDRESS 

jPRGl START ADDRESS 

;PRG2 START ADDRESS 

IPRG3 START ADDRESS 

JPRG4 START ADDRESS 

IPRG5 START ADDRESS 

;PRG6 START ADDRESS 

JPRG7 START ADDRESS 

JPRG10 START ADDRESS 

jPRGU START ADDRESS 

JPRG12 START ADDRESS 

J PRGl 3 START ADDRESS 



;P0INTER 


FOP 


EMT 


CALL 


DELAY 


JPOINTEP 


FOR 


EMT 


CALL 


EHALT 


{POINTER 


FOR 


EMT 


CALL 


SRESET 


{POINTER 


FOR 


EMT 


CALL 


TYPE 


{POINTER 


FOR 


EMT 


CALL 


TYPES 


{POINTER 


FOR 


EMT 


CALL 


STALL 


{POINTER 


FOR 


EMT 


CALL 


ERROR 


{POINTER 


FOR 


EMT 


CALL 


ERRORl 


{POINTER 


FOR 


EMT 


CALL 


CHALT 


{POINTER 


FOR 


EMT 


CALL 


STRDRV 


{POINTER 


FOR 


EMT 


CALL 


STPCHV 


{POINTER 


FOR 


EMT 


CALL 


SCOPE 


{POINTER 


FOR 


EMT 


CALL 


OPTSEL 


{POINTER 


FOR 


EMT 


CALL 


CNTL 


{POINTER 


FOP 


EMT 


CALL 


TTYIN 


{POINTER 


FOP 


EMT 


CALL 


VALID 


{POINTER 


FOB 


EMT 


CALL 


CKSWR 



•CHARACTER COUNT 

{HOLDS ONE CHARACTER FROM READER, 
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1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1239 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 



001424 
001426 
001430 
001432 
001436 
001442 
001446 
001450 
001452 
001454 
001460 
001464 
001472 
001500 
001504 

001512 
001520 
001522 
001524 
001532 
001540 
001546 
001554 
001562 
001570 
001576 
001602 
001610 
001616 
001620 
001626 
001630 
001634 
001640 
001644 
001650 
001652 
001654 
001656 
001660 
001662 
001664 
001670 
001672 



001676 
001702 
001704 
001710 
001716 
001724 
001730 
001732 



000000 

000000 
000000 

012706 
005067 
005767 
001404 
104003 
020773 
005067 
013746 
012737 
012737 
012637 
012737 

012767 
104003 
002042 
012767 
012767 
012767 
012767 
012767 
012767 
012767 
005067 
012767 
012767 
104014 
022767 
001765 
016700 
005067 
042700 
020027 
101410 
104003 
015267 
104010 
000664 
022626 
012637 
000737 
005067 



010067 177336 

006300 

000170 

016767 

012767 

012706 

104002 

005067 



001200 
176334 
177722 



177710 
000004 
001662 
000433 
000004 
177777 

000026 



160000 
160002 
160004 
160006 
000770 
000774 

000006 

177454 
000003 
020314 



177530 
177570 
177760 
000013 



CTRCl 
CTRD: 
XCNTI 
START! 



000004 
177060 



002040 
177530 



177456 
177452 
177446 
177442 
177436 
177434 
176206 

177562 
013106 



003 177544 



001270 
177336 



177342 



OPEN 

OPEN 

OPEN 

MOV 

CLH 

TST 

BEO 

TYPE 

STITLE 

CLP 

MOV 

MOV 

MOV 

MOV 

MOV 



JtSPB0T,%6 

PSW 

FRST 

IS 



FRST 

§#4,-(R6) 

#X0RA,§»4 

#433»(a«l77060 

(%6)+»»»4 

»-lf 3»X0RFLG 



#26, MSEC 



MOV 

TYPE 

MESS 

MOV l»160000,PRS 

MOV #160002#PRB 

MOV #160004, PPS 

MOV #160006, PPB 

MOV fJ770,RDRVTR 

MOV #774,PCHVTR 

MOV #6,MACHEP 



CLR 

MOV 

MOV 

OPTSEL 

CMP 

BEQ 

MOV 

CLR 

BIC 

CMP 

BLOS 

TYPE 

CM2 

CHALT 

BR 

CMP 

MOV 

BR 

CLR 



CRTBI ASL 

JMP 

GETRDYI MOV 



000006 176060 CLEANi 



MOV 
MOV 

SRESET 
CLR 



RTNNO 

#3, COUNT 

#SSTEST,TLX 

13, COUNT 

IS 

TMP1,%0 

XCNT 

#177760, %0 

%0,»13 

CRTA 



START 

(R6)+,CR6)t 

CR6)+,9#4 

INGXOR 

PRGID 



%0,PRGNUM 

%0 

iPRGTABC0) 

KSTART, NXTST 

#6,MACHER 

#SPB0T,R6 

PSW 



{SET BOTTOM OF SP STACK, 



{XOP PRS ADDRESS 

{XOP PRB ADDRESS 

{XOP PPS ADDRESS 

{XOR PPB ADDRESS 

{XOB READER VECTOR 

{XOR PUNCH VECTOR 



{INIT THE XOP PROGRAM CONTROL 
{LIMIT (SR) TO BITS 3-0 
{COMPARE (SR) TO PROGRAM LIMIT 
{VALID PROGRAM NUMBER? 
{TYPE INCORRECT PROGRAM MESSAGE, 



{COMMON HALT, 
{START OVER, 



{SAVE PROGRAM NUMBER AT PRGNUM 

{R0X2 

{GO TO SELECTED PROGRAM, 

{ADDR OF 1ST ROUTINE TO NXTST 

{SET UP BUS ERRROR TRAP, 

{SET UP STACK, 
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J269 


001736 


004767 


000422 




GTRDYAi 


JSR 


%7,F0RWD 


jROLL FORWARD TO "NEXT" ROU' 


1270 


001742 


032777 


001000 


177234 


GTRDYBl 


BIT 


#BIT9,0SWR 


JSELECT ROUTINE? 


1271 


001750 


001003 








BNE 


GTRDYC 


JBR IF YES, 


1272 


001752 


004767 


000440 






JSR 


%7,G0TST 


JGO RUN ROUTINE, 


1273 


001756 


000532 








BR 


CHNB 


fNO GO, MANUAL RTN BYPASSED 


1274 


001760 


012767 


000003 


177404 


GTRDYCI 


HOV 


»3, COUNT 




1275 


001766 


012767 


020246 


012730 




MOV 


#SRTN,TLX 




1276 


001774 


104014 








OPTSEL 






1277 


001776 


022767 


000003 


177366 




CMP 


#3, COUNT 




1278 


002004 


001765 








bEO 


GTRDyC 




1279 


002006 


016700 


177352 






MOV 


TMP1,%0 




1280 


002012 


042700 


177600 






BIC 


#177600#%0 


jMASK UNDESIRED BITS 


1281 


002016 


126700 


177234 




NTYETI 


CMPB 


RTNNO»%0 


JCOMPARE RTNNO TO (R0) 


1282 


002022 


001017 








BNE 


GTRDYD 


^BRANCH IF ROUTINE NOT FOUNI 


1283 


002024 


004767 


000366 






JSR 


%7,G0TST 


|G0 RUN ROUTINE, 


1284 


f*S7^30 


104003 








TYPE 




INO GO, MANUAL RTN BYPASSED^ 


1285 


M7^ri 


015467 








CMS 




;TYPE MESSAGE, 


1286 


002034 


104010 








CHALT 






1287 


002036 


000724 








BR 


GETBDY 




1288. 


002040 


000000 






XORFLGI 









1289 


002042 


021445 


041520 


030461 


MESSi 


.ASCII 


'%#PC11 XOR 


TST9' 


1290 


002050 


054040 


051117 


052040 










1291 


002056 


052123 


100 












1292 




002062 








.EVEN 






1293 


002062 


022767 


177777 


177170 


GTRDVDJ 


CMP 


#-l,NXTST 


JNO, CHECK FOR LaSt ROUTINE, 


1294 


002070 


001403 








BEO 


INCRTN 




1295 


002072 


004767 


000266 






JSR 


%7,F0RWD 




1296 


002076 


000747 








BR 


NTYET 




1297 


002100 


104003 






INCBTNj 


TifPE 




,'TYPE INCORRECT RTN MESSAGE, 


1298 


002102 


015325 








CM3 






1299 


002104 


104010 








CHALT 




;COMMON HALT, 


1300 


002106 


000700 








BR 


GETRDY 


J START OVER, 


1301 


002110 


012706 


001200 




CHAINi 


MOV 


»SPB0T#R6 


fRESTORE STACK, 


1302 


002114 


104020 










CKSWR 




1303 


002116 


005737 


002040 






TST 


0»XOrFLG 


}IS XOR TESTER HERE? 


1304 


002122 


100011 








BPL 


3S 


JBR IF NOT 


1305 


002124 


013746 


000004 






MOV 


e#4,-(%6) 


jSAVE MEM. 4 


1306 


002130 


012737 


002354 


000004 




MOV 


»X0R,?#4 




1307 


002136 


005737 


177060 






TST 


0«177060 


J IS XOR IN ERROR? 


1308 


002142 


012637 


000004 






MOV 


(%6)+,§#4 


jNO, REPLACE MEM. 4 


1309 


002146 


032777 


040000 


177030 


3SJ 


BIT 


»BIT14, fSWR 


; SCOPE? 


1310 


002154 


001404 








BEQ 


S2$ 


fBR IF NOT 


1311 


002156 


005067 


175614 




SISI 


CLR 


PSW 




1312 


002162 


000177 


17707b 






JMP 


PSCOPTR 


jGO TO SCOPE ENTRY 


1313 


002166 


032777 


004000 


177010 


S2$: 


BIT 


#B1T11,PSWR 


jINhlBIT ITERATION? 


1314 


002174 


001003 








BNE 


CHNAA 


;BR IF YES, 


1315 


002176 


005367 


177060 






DEC 


ICTR 


;N0, ICTR 0? 


1316 


002202 


001365 








BME 


SIS 


;BR IF NOT 


1317 


002204 


032777 


002000 


176772 


CHNAAI 


BIT 


»BIT10,§SWR 


IHALT AT END OF TEST? 


1318 


002212 


00H14 








BEQ 


CHNB 


;BR IF NOT, 


1319 


002214 


005067 


177144 






CLP 


TMPl 




1320 


002220 


116767 


177032 


177136 




MOVB 


RTNN0,TMP1 




1321 


002226 


004567 


002622 






JSR 


%5,ACNV4 




1322 


002232 


001364 








TMPl 






1323 


002234 


020756 








PTNN 






1324 


002236 


104003 








TYPE 
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1325 


002240 


020736 




1326 


002242 


104010 




1327 


002244 


032777 


001000 


1328 


002252 


001216 




1329 


002254 


022767 


177777 


1330 


002262 


001215 




1331 


002264 


005767 


177550 


1332 


002270 


100015 




1333 


002272 


005167 


177132 


1334 


002276 


005767 


177126 


1335 


002302 


100005 




1336 


002304 


012767 


010240 


1337 


002312 


000167 


177372 


1338 


002316 


012767 


005432 


1339 


002324 


104003 




1340 


002326 


015263 




1341 


002330 


013700 


000042 


1342 


002334 


001405 




1343 


002336 


000005 




1344 


002340 


004710 




1345 


002342 


000240 


000240 


1346 


002350 


000167 


177334 


1347 


002354 


022626 




1348 


002356 


012637 


000004 


1349 


002362 


000675 




1350 


002364 


016705 


176670 


1351 


002370 


012567 


176662 


1352 


002374 


012567 


176660 


1353 


002400 


012567 


176656 


1354 


002404 


012567 


176654 


1355 


002410 


010567 


176640 


1356 


002414 


000207 




1357 


002416 


005767 


176634 


1358 


002422 


100005 




1359 


002424 


032777 


000400 


1360 


002432 


001401 




1361 


002434 


000207 




1362 


002436 


000177 


176612 


1363 








1364 


002442 


010046 




1365 


002444 


016600 


000002 


1366 


002450 


014000 




1367 


002452 


006300 




1368 


002454 


016000 


171320 


1369 


002460 


000200 




1370 








1371 


002462 


011600 




1372 


002464 


005740 




1373 


002466 


010067 


176672 


1374 


002472 


004567 


002330 


1375 


002476 


001364 




1376 


002500 


020717 




1377 


002502 


104003 




1378 


002504 


020711 




1379 


002506 


000000 




1380 


002510 


104020 





176732 CHNB: 
176776 



176740 
176726 



000240 



176552 



ENDRTN 
CHALT 
BIT 
BNE 
CMP 
BNE 
TST 
BPL 
COM 
TST 
BPL 
MOV 
JMP 
MOV 
TYPE 
APGEND 
MOV 
BEQ 
RESET 
JSR 
.WORD 
JMp 
CMP 
MOV 
BR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
TST 
BPL 
BIT 
BEQ 
RTS 
GOTSTAi JMP 



2$t 

IS: 



LOGIC: 



here: 
XOR: 



FORWD: 



GOTST: 



»BIT9,giSWR 

GETRDY 

#-l#NXTST 

CLEAN 

XORFLG 

IS 

XCNT 

XCNT 

2S 

#CT0,KSTART 

GETRDY 

#AT0,KSTART 

J TYPE 

i#42,R0 
HERE 



PC,(0) 

NOP, NOP, NOP 

GETRDY 

(%6)+,(%6)+ 

(%6)4-,P#4 

SIS 

NXTST,%5 

(5)+, RTNNO 

(5)+,NXTST 

(5)4-, ICTR 

(5)-t-,SC0PTR 

%5,CURTST 

%7 

RTNNO fCHECK 

GOTSTA 

»BIT8,?SWR 

GOTSTA 

%7 

. - . 0CURTST 

:EMT INTERPRETER ROUTINE, 



EMTINTI MOV 
MOV 
MOV 
ASL 
MOV 
RTS 



ICOMMON HALT ROUTINE, 



-(6) 
2(6), R0 
-(0),R0 
R0 

EMTTAB-10000(0 
R0 



; SELECT ROUTINE? 
;8R IF YES, 
?N0, LAST TEST? 
;BR IF NOT, 



JSTART PUN LOGIC TESTS IF XOR 

JSTART RDR LOGIC TESTS IF XOR 
PROGRAM END MESSAGE, 

jGET CONTENTS OF 42, 
?BR IF 0, 

{RETURN TO MONITOR, 

; REPEAT, 
;POP STACK 
; REPLACE MEM 4 
jGO TO SCOPE ENTRY 
jADDR OF NEXT ROUTINE TO R5, 
;GET NEXT ROUTINE NUMBER, 
|GET ADDR OF NEXT "NEXT" ROUTINE, 
JGET ITERATION COUNT, 
{GET SCOPE LOOP ENTRY POINTER, 
;ADDR OF NOW CURRENT TEST TO CURTST, 
{EXIT FORWD SUBROUTINE, 
FOR MANUAL RTN, 
{BRANCH IF NOT ("lANUAL RTN, 
{MANUAL RTN, BYPASS IT? 
{NO, RUN II, 
{BYPASS MANUAL ROUTINE, 
{GO RUN TEST 

{PUSH R0, 
{GET EMT PC, 
{GET EMT CALL, 
{TIMES 2, 
)»R0 {DEVELOP EMT RTN ADDR, 
{GO TO EMT RTN, RESTORE R0, 



CHLT: 



MOV 

TST 

MOV 

JSR 

TMPl 

GWAS 

TYPE 

PCHLT 

HALT 

CKSWR 



(6),R0 
-(0) 
%0,TMP1 
%5,ACNV6 
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176464 



1381 


002S12 


000002 


1382 






1383 


002514 


005777 


1384 


002520 


100002 


1385 


002522 


000000 


1386 


002524 


104020 


1387 


002526 


000002 


1388 






1389 


002530 


005777 


1390 


002534 


100401 


1391 


002536 


000207 


1392 


002540 


104004 


1393 


002542 


017404 


1394 


002544 


016334 


1395 


002546 


177777 


1396 


002550 


104010 


1397 


002552 


000766 


1398 






1399 






1400 






1401 






1402 






1403 


002554 


005767 


1404 


002560 


001425 


1405 


002562 


013746 


1406 


002566 


012737 


1407 






1408 






1409 






1410 






1411 


002574 


052777 


1412 


002602 


104000 


1413 


002604 


000001 


1414 


002606 


012537 


1415 






1416 






1417 


002612 


104000 


1418 


002614 


000050 


1419 






1420 


002616 


012637 


1421 


002622 


000005 


1422 


002624 


011505 


1423 


002626 


000205 


1424 


002630 


022626 


1425 


002632 


000771 


1426 


002634 


062705 


1427 


002640 


000205 


1428 






1429 






1430 


002642 


032777 


1431 


002650 


001001 


1432 


002652 


000207 


1433 


002654 


004767 


1434 


002660 


000770 


1435 






1436 


002662 


004767 



004000 176340 



fCHECK FOR HALT ON ERROR, 
jBRANCH IF NO HALT DESIRED. 
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RTI 
lERROR HALT ROUTINE, 
EHLTl TST 0SWR 
BPL EHLTA 
HALT 
CKSWR 
EHLTAI RTI jEXIT 

jROUTINE TO CHECK FOR READER ERROR, 
ARDERl TST 9PPS jTEST ERROR BIT IN PRS 

jBRANCH IF ERROR BIT SET, 

|NOT SET, EXIT, 

JTXPE STATUS MESSAGE AND 

{INSTRUCTIONS 

?HALT TO WAIT FOR USER, 
IGO TEST AGAIN, 
;DDU«XOR PROGRAMMABLE SIMULATOR OF PC05 (PUNCH/rEADER) 
ICALL -JSR %5,PCSIM 

> SIMULATOR CONSTANT 

f #LABLE OF NEXT INSTRUCTION IF ON XOR TESTER 

> IF NOT ON AN XOR, THIS ROUTINE EXIT TO THE INSTRUCTION FOLLOWING THE CALL 
PCSlMi TST XOPFLG ;ARE WE ON AN XOR TESTER 

BEO RETRN I IF NOT ON AN XOr TESTER RETURN 

MOV 9#4#-(%6) jSAVE TRAP CATCHER 

MOV #l$,(a#4 ?IF XOR TRAPS DUrRING LOAD GO TO 18 



fYES, INHIBIT A H SIGNAL FROM CAUSING ERROR DUt DiFFtHEM 
fClRCUlT DELAYS AT THE TEST HEAD 

;LOAD SIMULATOR 



TST 


9PPS 


BMI 


1$ 


RT5 


%7 


TYPES 




SMI 




IM6 




-1 




CHALT 




BR 


ARDEl 





BIS 


#U§PRS 




DELAY 




2SI 


MOV 

DELAY 
50 


C%5) + fe«l77' 


3$J 


MOV 
RESET 


(%&)•♦•, (a»4 




MOV 


(%5),%5 




RTS 


%5 


ISl 


CMP 


CR6) + ,(R6)t' 




BP 


3S 


RETRNJ 


ADD 


»4,%5 




RTS 


%5 



;WAIT FOR ERROR BlT TO SETTLE 

^REPLACE TRAP CATCHER 

JRETURN TO TEST SETUP 

{RETURN TO TEST 

;FIX STACK 

{CONTINUE WITH THE SIM ROUTINE 

;NOT hi>i XOR TESTER , RETURN TO PROGRAM AFTER PCSIM CALL 



{ROUTINE TO CHECK FOR READER READY, 

APRDYs BIT |4000,9PRS {TEST BUSY BIT, 

BNE ARRDYA {BRANCH IF BUSY BiT SET, 

RTS %7 ;READER READY, EXiT, 

ARRDYAl JSR %7,TSM2 {TYPE STATUS AND INSTRUCTION MESSAGE, 

BR ARRDY -GO CHECK AGAIN 

{ROUTINE TO FETCH A CHARACTER 

AREADs JSR %7,ARHDy {CHECK FOR READER READY, 
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1437 


002666 


105277 


176316 


1438 


002672 


005777 


176312 


1439 


002676 


100404 




1440 


002700 


105777 


176304 


1441 


002704 


100372 




1442 


002706 


000207 




1443 


002710 


004767 


000002 


1444 


002714 


000762 




1445 


002716 


104004 




1446 


002720 


017433 




1447 


002722 


016334 




1448 


002724 


177777 




1449 


002726 


104010 




1450 


002730 


000207 




1451 








1452 


002732 


017667 


000000 


145J 


002740 


062716 


000002 


1454 


002744 


016701 


176250 


1455 


002750 


012721 


000000 


1456 


002754 


016721 


176242 


1457 


002760 


000002 




1458 








1459 


002762 


017667 


000000 


1460 


002770 


062716 


000002 


1461 


002774 


016701 


176224 


1462 


003000 


012721 


000000 


1463 


003004 


016721 


176216 


1464 


003010 


000002 




1465 








1466 


003012 


012700 


052525 


1467 


003016 


005100 




1468 


003020 


010067 


177770 


1469 


003024 


000005 




1470 


003026 


000002 




1471 








1472 


003030 


016700 


000042 


1473 


003034 


006100 




1474 


003036 


006100 




1475 


003040 


066700 


000034 


1476 


003044 


010067 


000026 


1477 


003050 


006100 




1478 


003052 


006100 




1479 


003054 


066700 


000020 


1480 


003060 


006100 




1481 


003062 


006100 




1482 


003064 


010067 


000010 


1483 


003070 


016700 


000002 


1484 


003074 


000207 




1485 


003076 


001233 




1486 


003100 


007622 




1487 








1488 


003102 


104011 




1489 


003104 


003162 




1490 


003106 


012767 


000340 


1491 


003U4 


004767 


177522 


1492 


003120 


052777 


000101 



AREADII 
ARDA{ 



INCH 

TST 

BMI 

TSTB 

BPL 

RTS 

JSR 

BR 

TYPES 

SM2 

1M6 

-1 

CHALT 
RTS 



?PRS 

PPRS 

ARDB 

OPRS 

ARDA 

%7 

%7,TSM2 

AHEAD 



%7 



{ENABLE READER 

{TtST ERROR BIT 

{BRANCH IF ERROR BIT SET, 

{CHECK DONE BIT 

{BRANCH IF NOT DONE, 

{DONE, EXIT. 

{TYPE STATUS AND INSTRUCTION MESSAGE, 

{TRY AGAIN, 

{TYPE READER NOT READY STATUS 

{MESSAGE AND HALT, 



{EXIT 



{ROUTINE TO SET READER INTERRUPT VECTOR AND PRIORITY 



000012 STPTRVi 



MOV 
ADD 
MOV 
MOV 
MOV 
RTI 



§(6)#STPRA+2 
»2»P%6 
RDRVTR#%1 
UOPENf (l)+ 
RDRLVL, (1)+ 



{MOVE VECTOR AUDr TO STPRA+2 
{SET UP EXIT 

{SET VECTOR ADDRESS 
{SET PRIORITY 
{EXIT 



{ROUTINE TO SET PUNCH INTERRUPT VECTOR AND PRIORITY, 



e(6),STPPA4.2 

#2,fa%6 

PCHVTR#%1 

«0PEN,(1)+ 

PCHLVL,(1)+ 



000012 STPTPVl MOV 

ADD 

MOV 
STPPAl MOV 

MOV 

RTI 
{ROUTINE TO 
SRSETTi MOV 

COM 

MOV 

RESET 

RTI 
{RANDOM NUMBER GENERATOR 



ISSUE RESET, 
#52525, %0 
%0 
%0,SRSETT+2 



{MOVE VECTOR ADDR TO STPPA+2 
{SET UP EXIT 

{SET VECTOR ADDRESS, 
{SET PRIORITY 
{EXIT, 



RNGENI 



RPII 
RP2I 



MOV 

ROL 

ROL 

ADD 

MOV 

ROL 

ROL 

ADD 

ROL 

ROL 

MOV 

MOV 

RTS 

1233 

7622 



RP1#%0 

%0 

%0 

RP2r%0 

%0#RP1 

%0 

%0 

RP2#%0 

%0 

%0 

%0rRP2 

RP1»%0 

%7 



{DATA TO R0, 
{COMPLEMENT (R0), 
{(R0) TO SRSETT-f2, 
{ISSUE RESET, (R0) IS 
{DISPLAYED, EXIT. 
ROUTINE EXITS WITH NUMBER IN REGISTER 0, 



{EXIT, NUMBER IN P0 



174662 
176062 



{SUBROUTINE TO READ CHARACTER FROM READER USING INTERRUPT, 
BREAD! STRDRV |SET READER VECTOR 

BREADB |T0 BREADS 

MOV #PRTY7,PSW jSET PRIORITY 7, 
JSR %7,ARRDY {CHECK FOR READER READY, 
BIS #101,8PR5 {ENABLE PTR AND PTRI, 
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1493 


003126 


104000 






DELAY 




;i^AlT FOR READER INTERRUPT, 


1494 


003130 


000226 






150, 






1495 


003132 


005077 


176052 




CLR 


(apRS 


jCLEAR PTRI ENABLE, 


1496 


003136 


104003 






TYPE 




JTYPE NO PTR RESPONSE 


1497 


003140 


020124 






EM7 




; MESSAGE 


1498 


003142 


000757 






BR 


BREAD 


ITPY AGAIN. 


1499 


003144 


017767 


176042 176226 BPEADAl 


MOV 


§PRB,CRBUF 


ICHAR READ TO CRBUF, 


1500 


003152 


022626 






P0PSP2 






1501 


003154 


005067 


174616 




CLR 


PSW 


jCLEAR STATUS, 


1502 


003160 


000207 






RTS 


%7 


jEXIT SUBROUTINE, 


1503 


003162 


005077 


176022 


BREADBt 


CLR 


»PRS 


;CLEAR PTR INTERRUPT ENABLE, 


1504 


003166 


005777 


176016 




TST 


@PRS 


ITEST FOR ERROR. 


1505 


003172 


100411 






BMI 


BREADC 


fBRANCH IF ERROR, 


1506 


003174 


105777 


176010 




TSTB 


ePRS 


jTEST FOR DONE BIT, 


1507 


003200 


100403 






BMI 


BRDBB 


IBRANCH IF DONE BU SET, 


1508 


003202 


104007 






ERPORl 




jERROR, FALSE READER INTERRUPT, 


1509 


003204 


020140 






EM10 






1510 


003206 


000405 






BR 


BRDCC 




1511 


003210 


012716 


003144 


BPDBBi 


MOV 


»BREAOA,0%6 


;MODIFY INTERRUPT EXIT TO BREAOA, 


1512 


. 003214 


000002 






RTX 




;0K, EXIT INTERRUPT. 


1513 


003216 


004767 


177474 


BREADCl 


JSR 


%7,TSM2 


JTYPE NOT READY MESSAGE, 


1514 


003222 


012716 


003230 


BRDCCI 


MOV 


»BRDDD,9%6 


JSET UP TO RETRY, 


1515 


003226 


000002 






RTI 




5 EXIT INTERRUPT, 


1516 


003230 


022626 




BRDDOl 


P0P5P2 






1517 


003232 


000723 






BR 


BREAD 


tOO TRY AGAIN, 


1518 








> ERROR 


ROUTINES 






1519 


003234 


004767 


000060 


ERR! 


JSR 


%7,ERRA 


JFIRST ERROR IYPEOUT 


1520 


003240 


104001 






EHALT 




jGO HALT IF HALT SWITCH IS SET, 


1521 


003242 


000002 






RTI 




jEXIT, 


1522 


003244 


004767 


000050 


ERRlj 


JSR 


%7,rpRA 


fFIPST ERROR TYPEOUT 


1523 


003250 


004767 


000024 




JSR 


%7,INHPRT 


JINHIBIT PRINT? 


1524 


003254 


000406 






BR 


EPRIA 


;N0 PRINT 


1525 


003256 


011600 






MOV 


gl%6#%0 


jDEVELOP ADDRESS OF ADDITIONAL 


1526 


003260 


011067 


000002 




MOV 


P%0#,+6 


yEPROR TYPEOUT, 


1527 


003264 


104003 






TYPE 




JADDITIONAL ERROR TYPEOUT, 


1528 


003266 


000000 






OPEN 






1529 


003270 


104001 






EHALT 




;G0 HALT IF HALT SWITCH IS SET, 


1530 


003272 


062716 


000002 


EHRIAJ 


ADD 


»2r(a%6 


jSET UP EXIT, 


1531 


003276 


000002 






RTI 




JEXIT 


1532 


003300 


104020 




INHPRTl 


CK5i*R 






1533 


003302 


032777 


020000 175674 


BIT 


»BIT13,PSWH 


.•INHIBIT PRINT? 


1534 


003310 


001002 






BNE 


. + 6 


?8R IT YES, 


1535 


003312 


062716 


000002 




ADD 


«2,(a%6 


Ji^O, 


1536 


003316 


000207 






RTS 


%7 


jEXiT, 


1537 


003320 


016600 


000002 


ERRAJ 


MOV 


2(6), R0 


J GET KMT PC, 


1538 


003324 


005740 






TST 


-(0) 


jDECRtMENT Bi 2, 


1539 


003326 


010067 


176030 




MOV 


%0,ERRT 


lADDRESS OF ERROR CALL TO ERRT 


1540 


003332 


004767 


177742 




JSR 


%7,INHPRT 


; INHIBIT PRINT? 


1541 


003336 


000207 






RTS 


%7 


JHO PRINT, 


1542 


003340 


004567 


001462 




JSH 


%5,ACNV6 


;CONVERT ERROR CALL ADDRESS TO ASCII 


1543 


003344 


001362 






ERRT 






1544 


003346 


017623 






APC 






1545 


003350 


004567 


0411500 




JSR 


%5,ACNV4 


•CONVERT PROGRAMi TO ASCII 


1546 


003354 


001240 






PPGNUM 






1547 


003356 


017602 






APNUMB 






1548 


003360 


004567 


001470 




JSR 


%5,ACNV4 


yCOrJVERT TESTS TO ASCII 
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1549 


003364 


001256 








RTNNO 




1550 


003366 


017612 








ATNUMB 




1551 


003370 


104003 








TYPE 




1552 


003372 


017570 








EM0 




1553 


0Pt3374 


104020 








CKSlNR 




1554 


003376 


000207 








RTS 


%7 


1555 










jSUBROUTINE TO 


OUTPUT ASCII ME 


1556 


003400 


011600 






TYPJ 


MOV 


S%6f%H 


1557 


003402 


062716 


000002 






ADO 


«2,3%6 


1558 


003406 


011000 








MOV 


9%0»%^ 


1559 


003410 


112067 


000116 




TYPAS 


MOVB 


(0)+, TYPDAT 


1560 


003414 


122767 


0(^0100 


000U0 




CMPfa 


#100, TYPDAT 


1561 


003422 


001006 








BNE 


TYPC 


1562 


003424 


112767 


000177 


000100 




M0V6 


#177, TYPDAT 


1563 


003432 


004767 


000030 






JSR 


%7,TYPD 


1564 


003436 


000002 








RTI 




1565 


003440 


122767 


000045 


000064 


TYPC! 


CMPB 


#45, TYPDAT 


1566 


003446 


001416 








BEQ 


TYPF 


1567 


003450 


122767 


000043 


000054 




CMPB 


#43, TYPDAT 


1568 


003456 


001417 








BEU 


TYPG 


1569 


003460 


004767 


000002 






JSP 


%7,TYPD 


1570 


003464 


000751 








BR 


TYPA 


1571 


003466 


116777 


000040 


175542 


TYPDi 


MOVB 


TYPDAT, 9TPB 


1572 


003474 


105777 


175534 






TSTB 


3TPS 


1573 


003500 


100375 








BPL 


.-4 


1574 


003502 


000207 








RTS 


%7 


1575 


003504 


112767 


000015 


000020 


TYPFI 


MOVB 


#15, TYPDAT 


1576 


003512 


004767 


177750 






JSR 


%7,TYPD 


1577 


003516 


112767 


000012 


000006 


TYPG: 


MOVb 


#12, TYPDAT 


1578 


003524 


004767 


177736 






JSR 


%7,TYPD 


1579 


003530 


000727 








BR 


TYPA 


1580 


003532 


000000 






TYPDAT: 


OPEN 




1581 










JSUBROUTINE TO 


OUTPUT A SERIES 


1582 


003534 


011600 






TYPSI 


MOV 


@%6,%0 


1583 


003536 


062716 


000002 






ADD 


#2,9%6 


1584 


003542 


011067 


000014 






MOV 


P%0,TYP5B 


1585 


003546 


022767 


177777 


00000b 




CMP 


#-l,TYPSB 


1586 


003554 


0k)1001 








BNE 


TYPSA 


1587 


003556 


000002 








RTI 




1588 


003560 


104003 






TYPSAt 


TYPE 




1589 


003562 


000000 






TYPSBI 


OPEN 




1590 


003564 


000763 








BR 


TYPS 


1591 










jSUBROUTiNt, TO 


DELAY A SPECIFII 


1592 


003566 


011667 


000124 




OLYI 


MOV 


§%6,ULCNT 


1593 


003572 


062716 


000002 






ADD 


«2,9%6 


1594 


003576 


017767 


000114 


000112 




MOV 


f»DLCNT,DLCNT 


1595 


003604 


005067 


174166 






CLR 


PSW 


1596 


003610 


016767 


175434 


000076 


DLYAl 


MOV 


MSECDLCTR 


1597 


003616 


016767 


000072 


000070 


DLYBj 


MOV 


OLCTR,DLCTR 


1598 


003624 


016767 


000064 


000062 




MOV 


OLCTR,OLCTR 


1599 


003632 


016767 


000056 


000054 




MOV 


DLCTB,DLCTR 


1600 


003640 


016767 


000050 


000046 




MOV 


DLCTR,DLCTR 


1601 


003646 


016767 


000042 


000040 




MOV 


DLCTR,DLCTP 


1602 


003654 


016767 


000034 


000032 




MOV 


DLCTR,DLCTR 


1603 


003662 


016767 


000026 


000024 




MOV 


DLCTR.DLCTR 


1604 


003670 


016767 


000020 


000016 




MOV 


DLCTR,DLCTR 



;TyPE ERROR MESSAGE 



fEXIX. 
MESSAGE ON TELETYPE PRINTER, 

iGfcT ADDRESS THAT CONTAINS MESSAGE ADDRESS, 

?SET UP EXIT, 

jADDRESS OF MESSAGE TO R0, 

jGET CHARACTER 

;CHECK FOR"(i"CHARACTEP 

;BPANCH IF NOT"i», 

JOUTPUT RUBOUT, 

jTERMINATOR CHAR, UONE, EXIT, 

; CHECK FOR«%", 

jBRANCH 1F»%" 

jNOT"%", CHECK FOp"#", 

;BRANCH IF "«'• 

fTYPE CHAR IN TYpDAT 

jOUTPUT CHARACTER TO PRINTER 
{WAIT FOR DONE FLAG, 

»EXIT 

;M0VE CARRIAGE RETURN CODE TO TYPDAT 

jGO TYPE CHAR, 

;MOVE LF CODE TO TyPUAT, 

;G0 TYPE CHAR, 



OF ASCII MESSAGES ON TELETYPE PRINTER 
;GET ADDRESS THAf CONTAINS MESSAGE ADDRESS 
niPUATE TO NEXT MESSAGE ADDRESS 
; ADDRESS OF MESSAGE 10 TYPSB 
ICHECK FOR TERMINATOR 
^BRANCH IF NOT TERMINATOR, 
JTERMINATOR, EXIT 
J CALL ON TYP SUB TO TYPE MESSAGE 
lADDRESS OF MESSAGE GOES HERE 
?G0 PROCESS NEXT MESSAGE 
ED NUMBER OF MILLISECONDS 

jGET ADDRESS THAT CONTAINS DELAY COUNT 

jSET UP EXIT 

IMILLISECONDS COUNT TO DLCNT 

;MOVE I MSEC DELAY CONSTANT TO DLCTR 
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160S 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 



003676 
003702 



005367 
001345 



003704 00S367 
003710 001337 
003712 
003714 
003716 



003720 
003724 
003732 
003734 
003736 
003742 
003750 
003754 
003762 
003770 
003776 
004004 
004012 
004020 
004026 
004034 
004040 
004042 

004044 
004050 
004052 
004054 
004056 
004062 
004064 
004070 
004074 
004076 
004100 
004102 
004104 
004106 
004110 
004114 
004116 
004122 
004126 
004134 
004142 
004144 
004150 
004152 
004160 
004164 
004166 



004136 
012700 
012767 
104011 
004044 
005067 
012777 
005067 
016767 
016767 
016767 
016767 
016767 
016767 
016767 
016767 
005267 
001345 
104010 

005777 
100405 
005300 
001420 
005277 
000002 
004767 
012716 
000002 



DLCTBS 
DLCNTI 



000021 000204 



175300 
000101 
174022 
175262 
175254 
175246 
175240 
175232 
175224 
175216 
175210 
175202 



017456 
016620 
177777 
104010 
012716 
000002 
005077 
005067 
016767 
162767 
103403 
005267 
000771 
016767 
005067 
022626 
000207 



175240 

175260 
175252 
175244 
175236 
175230 
175222 
175214 
175206 



176626 
003720 



175066 
175120 
175110 



175076 



175070 
173612 



DEC 

8NE 

DEC 

BNE 

RTI 

OPEN 

OPEN 



DLCTR 
DL¥B 
DLCNT 
DLYA 



^ROUTINE TO CALIBRATE DELAY 
TMCONaRTINTB+2 



BTMCLAI 
RTMCLBl 



175110 
175102 



MOV 

MOV 

STRDRV 

RTMINT 

CLR 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

INC 

BNE 

CHALT 



PTMINTl TST 
BMl 
DEC 
BEQ 
INC 
RTI 

RTMERRt JSR 
MOV 
RTI 

PTMERRS TYPES 
SM3 
IM16 
-1 

CHALT 
MOV 
RTI 

RTINTAj CLR 
CLR 
MOV 

RTINTBI SUB 
BLO 
INC 
BR 

RTINTCl MOV 
CLR 

P0PSP2 
RTS 

jROUTINE TO CR 



#6,R0 
#17,,TMC0N 



jDECREMENT 1 MSEC COUNTER 
fBRANCH Xr NOT YET 1 MILLISECOND 
;DECREMENT MSECS COUNT (DLCNT) 
jBRANCH IF DLCNT NOT 
{DONE DELAYING, EXIT 
;1 MILLISECONDS COUNT 
^CONTAINS MILLISECONDS COUNT 
ROUTINE USING READER, 

;SET UP TO READ 6 CHARS, 

jTIME TO READ 6 CHARS TO TMCON, 

JSET READER VECTOR, 



■) 



BRCTR 
#101»9PRS 
PSW 

BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR, BRCTR 
BRCTR 
RTMCLB 



ePRS 

RTMERR 

R0 

RTINTA 

pPRS 

PC,TSM2 
#RTMCAL,C6J 



SPTMCAL,C6) 

9PRS 

DVQUOT 

BRCTR, DVDND 

«0,DVDND 

RTINTC 

DVQUOT 

RTINTB 

DVQUOT, MSEC 

PSM 

PC 
LIBRATE DELAY 



I ENABLE READER AND INTERRUPTS, 



JBR IF RESULT NOT 0, 
JBHCTR OVERFLOWED, 

; READER ERROR? 
;BR IF YES, 
;READ 6 CHARS? 
jBR IF YES, 
?N0, ENABLE READER, 
»EXIT INTERRUPT, 
JREADER ERROR, 
jGO TRY AGAIN, 

jPUNCH ERROR, 



jGO TRY AGAIN, 

;DISABLE READER INTERRUPTS, 
iCLEAP QUOTIENT, 

{DIVIDE DVDND BY 17 OR 100 

f+1 TO QUOTIENT, 

; REPEAT SUBTRACTION, 

jlMSEC CONSTANT TO MSEC, 



JEXIT, 
ROUTINE USING PUNCH, 
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1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1700 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 



004170 
004172 
004176 
004202 
004210 
004212 
004214 
004220 
004224 
004232 
004234 
004240 
004242 
004244 
004246 
004252 
004254 
004260 



004262 
004266 
004272 
004274 
004300 
004302 
004304 
004306 



004310 
004316 
004322 
004330 
004334 
004336 
004342 
004344 

004346 
004352 
004356 
004360 
004364 
004366 
004370 

004372 
004376 
004402 
004404 
004406 
004412 
004416 
004420 



005000 
004767 
012700 
012767 
104012 
004234 
005067 
005077 
052777 
000646 
005777 
100716 
005300 
001403 
005077 
000002 
005077 
000720 



004767 
046700 
001404 
010067 
10 



000002 



004314 
004326 
012727 
005067 
012727 
005367 
001375 
005367 
001367 



004767 
046700 
001773 
010067 
000207 



004767 
020067 
001001 
000207 
010067 
004567 
001362 
017655 



001040 

000005 

000144 177726 



175022 
174772 
000100 174762 



174744 
174734 



176542 
000014 



177752 



176456 
000010 



000314 
174776 



174750 
000436 



PTMCALJ CLR 
JSR 
MOV 
MOV 

STPCHV 
PTMINT 
CLR 
CLR 
BIS 
BR 
PTMINTJ TST 
BMI 
DEC 
BEQ 
CLR 
RTI 
PTINTAl CLR 

bP 
fSUBROUTINE TO 
{DETERMINED BY 
STALl JSR 
BIC 
BEQ 
MOV 
DELAY 
OPEN 
RTI 



P0 

PCHSPCH 
«5,R0 
#100,,TMCON 



BRCTR 

iPPB 

»BIT6,0PPS 

PTMCLA 

gPPS 

PTMERR 



PTINTA 
0PPB 



jGET PUNCH RUNNING, 

JSET UP TO PUNCH 5 CHAPS, 

jTIME TO PUNCH 5 CHARS TO TMCON, 

?SET PUNCH INTERRUPT VECTOR, 



; OUTPUT A 0, 

{ENABLE PUNCH INTERRUPTS, 

{PUNCH ERROR? 
J8P IF YES, 
{PUNCHED 5 CHARS? 
{BR IF YES, 
{OUTPUT ANOTHER 0, 
{EXIT INTERRUPT, 
{DISABLE INTERRUPTS, 



0PPS 

RTINTA+4 

STALL A RANDOM NUMBER OF MILLISECONDS, MAXIMUM STALL 
CONTENTS OF LOC STLMSK, 



%7,RNGEN 
STLMSK, %0 
STALB 
%0,STALA 



STALAI 
STALBl 
STLMSKi OPEN 
»SUB TO DELAY 
DLYX0a 



000040 000000 DLYXl 
173454 ' 
001750 
177772 



DLYXAl 
DLYXBl 



DLYXl 
MOV 
CLR 
MOV 
DEC 
BNE 
DEC 
BNE 
RTI 
{SUBROUTINE TO 
GPCNTI JSR 
BIC 
BEQ 
MOV 
RTS 
RCMSKI OPEN 
RNCNTI OPEN 
{SUBROUTINE TO 
BCHECKi JSR 
CMP 
BNE 
RTS 
MOV 
JSR 
ERRT 
ASB 



X TIME, 

DLYX-»-4 

DLYXA+4 

#40, #0 

PSM 

#1000, ,# 

DLYXl 

DLYXB 

DLYX0 

dlyxa 



{GO GET RANDOM NUMBER, 

{# IN R0, APPLY STALL MASK, 

{BRANCH IF RESULT IS 0, 

JDELAY 

{DELAY COUNT 
{DONE, EXIT, 
{STALL MASK, 



{SET UP COUNT OF 40, 



{SET DELAY, 

{DECREMENT DLYXl, 

{BR IF NOT RESULT. 

{DECREMENT DLYX0, 

{BR IF NOT RESULT, 

fEXiT, 

GENERATE RANDOM CHARACTER COUNT (1-77) 
%7,RNGEN {GET RANDOM NUMBER 
RCMSK,%0 {APPLY MASK 
GRCNT JTRY AGAIN IF RESULT 

%0,RNCNT {COUNT TO RNCNT 
%7 fEXIT, 

{RANDOM CHARACTER MASK, 

{RANDOM CHARACTER COUNT, 
COMPARE DATA READ FROM READER AGAINST EXPECTED DATA AND REPORT ERRORS, 
%7,GTBIN {GET BIN CHARACTER(IN R0) 
%0,CRBUF {COMPARE(R0)TO DATA IN CRBUF 
,+4 {BRANCH IF NOT SAME(ERROR), 

%7 {OK, EXIT, 

%0,ERRT 
%5,ACNV4 



:ii Rg 


ADEB-PUN 


CH TESTS 


MACYil 


27(7325 
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JPCAE. 


SPC 














1717 


004422 


004567 


000426 






JSR 


%5,ACNV4 


1718 


004426 


001400 








CB6UF 




1719 


004430 


017670 








AWAS 




1720 


004432 


104007 








ERROBl 




1721 


004434 


017632 








EMI 




1722 


004436 


005367 


174754 






DEC 


ERCTR 


1723 


004442 


001002 








iNE 


. + 6 


1724 


004444 


004767 


000002 






JSR 


%7,BSYNC 


1725 


004450 


000207 








RTS 


%7 


1726 










JSUBPOUTINE TO 


SYNC THE HEADER 


1727 


004452 


004767 


000176 




BSYNCI 


JSR 


%7,INBIN 


1728 


004456 


004767 


176420 






JSR 


%7, BREAD 


1729 


004462 


004767 


176414 






JSP 


%7, BREAD 


1730 


004466 


004767 


176410 






JSR 


%7,BpeAD 


1731 


004472 


016767 


174702 


174702 




MOV 


CRBUF,CHR1 


1732 


0045^0 


004767 


176376 






JSP 


%7, BREAD 


1733 


t.0.'«.:«A 


016767 


174670 


174672 




MOV 


CRBUF^CHR2 


1734 


004512 


004767 


176364 






JSP 


%7, BREAD 


1735 


004516 


016767 


174656 


174662 




MOV 


CRBUF,CHR3 


1736 


004524 


004767 


000012 






JSR 


%7,SYNCA 


1737 


004530 


000750 








BR 


BSYNC 


1738 


004532 


012767 


000003 


174656 




MOV 


«3, ERCTR 


1739 


004540 


000207 








RTS 


%7 


1740 


004542 


012767 


001000 


000102 


SYNCAi 


MOV 


»512.»SYCTRA 


1741 


004550 


004767 


000136 




SYNCBI 


JSH 


%7,GTSIN 


1742 


004554 


010067 


174630 






MOV 


%0,ChR1A 


1743 


004560 


004767 


000126 






JSP 


%7,GTBIN 


1744 


004564 


010067 


174622 






MOV 


%0,CHR2A 


1745 


004570 


004767 


000116 






JSP 


%7,GTBIN 


1746 


004574 


010067 


174614 






MOV 


%0,CHR3A 


1747 


004600 


026767 


174576 


174602 




CMP 


CHRl^CHRiA 


1748 


004606 


001013 








bNE 


SYhCC 


1749 


004610 


026767 


174570 


174574 




CMP 


CHp2,CHR2A 


1750 


004616 


001007 








BMt 


SYNCC 


1751 


004620 


026767 


174562 


174566 




CMp 


CHR3,CHR3A 


1752 


004626 


001003 








BME 


SYNCC 


1753 


004630 


062716 


000002 






ADD 


»2,C6) 


1754 


004634 


000207 








RTS 


%7 


1755 


004636 


005367 


000010 




SYnCCj 


DfX 


SYCTRA 


1756 


004642 


001342 








BNE 


SYNCB 


1757 


004644 


104007 








EPROPI 




1758 


004646 


017747 








f:M3 




1759 


004650 


000207 








RTS 


%7 


1760 


004652 


000000 






SYCTRA: 


OPETJ 




1761 










J SUBROUTINE TO 


INITIALIZE BiNAf 


1762 


004654 


012767 


177777 


000014 


IMBlNj 


MOV 


»-l,RlND 


1763 


004662 


004567 


000 300 






JSH 


%5,BM0VE 


1764 


0v?4666 


004676 








RIND 




1765 


004670 


004677 








RIND-l-1 




1766 


004672 


000013 








11, 




1767 


004674 


000207 








RTS 


%7 


1768 


004676 


000000 






RIND! 


OPEN 




1769 


004700 


000000 






PT0J 


OPEM 




1770 


004702 


000000 






PTi: 


OPEN 




1771 


004704 


0!^0000 






PINO! 


OPEN 




1772 


004706 


300000 






PT0P! 


OPEN 





jDECREMENT ERROR COUNTER 
,'BRANCH IF NO THIRD ERROR 
jRESYNC THE READER, 
;EXIT, 
TO A SPECIAL aiNApY COUNT PATTERN TEST TAPE, 
fINlTlALIZE BINARY PATTERN 
jREAD CHAR, 
JREAD CHAP, 
•READ CHAR AND STORE AT CHRl 

JREAD CHAR AND STOrE AT CHr2 

jREAO CHAR AND STOrE AT CHP3, 

fGO SYNC 

;N0 SYNC, TRY AGAIN, 

;SUCCESS.EXIT, 
;512 TO SYCTRA, 
;BIN CHAR TO CHRIA, 

;BIrM CHAR TO CHR2A, 

;BIN CHAR TO CHR3A, 

;CHRi AND CHRiA SAME? 

;bR if not, 

;CHR2 AMD CHR2A SAME? 

;BR IF NOT, 

;CHH3 AND CHR3A SAME? 

I BR IF NOT, 

;SET UP SYNCED ExiT. 

JEXIT, 

;TRIED 512 TImES? 

;BR IF NOT, 

,-SYNC ERROR MESSAGE. 

;N0 SYNC EXIT, 



;SET ALL VARIABLES 
;T0 MINUS 1, 
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177 3 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1789 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 



004710 000000 



004712 
004720 
004724 
004730 
004732 
004736 
004744 
004752 
004756 
004760 
004766 
004772 
004776 

005000 

005004 
005012 
005020 
005024 

005026 
005030 
005034 
005040 
005044 
005046 
005050 
005052 
005054 
005056 
0«5062 
005066 
005072 
005074 
005076 
005100 
005102 
005104 
005106 
005110 
005112 
005116 
005122 
005126 
005132 
005136 
005142 
005144 
005150 
005154 
005160 
005162 
005164 



016767 
005167 
005167 
001002 
005267 
042767 
016767 
016700 
000207 
016767 
005167 
005167 
001002 
005267 
042767 
016767 
016701 
000207 

012500 
012567 
004767 
0'^4567 
0^5102 

000000 

000006 
000205 
012500 
012567 
004767 
004567 
005104 



000004 

'^00205 

000000 
000000 
000000 
000000 

012701 
012702 
011067 
016703 
042703 
062703 
110341 
006067 
006067 
006067 
005302 
001361 
000207 



177762 
177756 
177746 

177744 
177400 
177732 
177724 

177722 
177716 
177706 

177704 
177400 
177672 
177664 



000012 

000052 
000122 



000012 
000024 
000074 



PTlPl OPEN 

JSPECIAL BINARY COUNT PATTERN 



005110 
000006 
177762 
177756 
177770 

000060 

177740 
177734 
177730 



177762 GTBIN! 



177736 
177726 



177722 GTBINPi 



177676 
177666 



MOV 
COM 
COM 
BHE 
INC 
BIC 
MOV 
MOV 
RTS 
MOV 
COM 
COM 
BNE 
INC 
BIC 
MOV 
MOV 
RTS 



PT0,PTI 
PTI 

Plivin 

. + 6 

PTl 

8177400, PTI 

PT1,PT0 

PT1,%0 

%7 

PT0P,PT1P 

PTIP 

PINO 

.♦6 

PTIP 

#177400, PTIP 

PT1P,PT0P 

PT1P,%1 

%7 



jOCTAL TO ASCII CONVERT ROUTINES 



ACNV6{ 



ACNVXI 
ACNV! 



MOV 

MOV 

JSR 

JSR 

AIST 

OPEN 

6 

RTS 

MOV 

MOV 

JSR 

JSR 

AlST+2 

OPEN 

4 

RTS 

OPEN 

OPEN 

OPEN 

OPEN 

MOV 

MOV 

MOV 

MOV 

BIC 

ADD 

MOVB 

ROR 

ROR 

POP 

DEC 

BNE 

RTS 



C5)+,%0 

(5)+,ACNVB 

%7,ACNV 

%5,bmove 



%5 

C5)+,%0 

C5)+,ACNVC 

%7,ACMV 

%5,BM0VE 



SUBROUTINE, EXITS wiTH BIN CHAR IN R0 
{PREVIOUS BIN CHAR TO PTl 



JMASK TO 8 BITS 

;SAVE BIN CHAR IN PT0 

;BIm CHAR TO R0, 

JEXIT, 

jPREVIOrjS BIN CHAR TO PTIP 



jMASK TO 8 BITS, 
;SAVE BIN CHAR iN PT0P, 
;BIN CHAR TO Rl, 
?EXIT, 
S 

jCOMVERT TO 6 ASCII, GET OCTAL ADDRESS 
;GET ASCII ADDRESS 
jCOMVERT TO ASCII 
;MOVE 6 CHARS TO ASCII ADDRESS 



»A1ST4-6,%1 

»6,%2 

0%0,ACNVX 

ACNVX,%3 

#177770, %3 

#60, %3 

%3,-{l) 

ACNVX 

ACNVX 

ACNVX 

%2 

ACNVM 

%7 



005166 012501 



JSUBROUTINF TO MOVE A VARIABLE 
BMOVEj MOV C5)+,%1 



JEXIT 

;CONVERT TO 4 ASCII. GET OCTAL ADDRESS 

;GET ASCII ADDRESS 

;CONVERT TO ASCII 

;MOVE 4 CHARS TO ASCII ADDRESS, 



;ADOR TO STORE AsClI TO Rl 

;6 TO R2 

;OCTAL WORD TO ACNVX 

; ISOLATE LEAST SIGNIFICANT OCTAL # 
;ADD 60 TO CONVERT TO ASCII 
;STORE ASCII BYTE 
;MOVE NEXT OCTAL DIGIT TO LEAST 
jSIGNIFICANT POSITION 

fDONE 6 TIMES? 
;N0, REPEAT, 
jYES, EXIT, 
NUMBER OF BYTES, 
fGET"FROM"ADORESS 
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1829 


005170 


012502 




1830 


005172 


012503 




1831 


005174 


112122 




1832 


005176 


005303 




1833 


005200 


001375 




1834 


005202 


000205 




1835 








1836 


005204 


005777 


174004 


1837 


005210 


100404 




1838 


005212 


105777 


173776 


1839 


005216 


100001 




1840 


005220 


000207 




1641 


005222 


104004 




1842 


005224 


017456 




1843 


005226 


016620 




1844 


005230 


177777 




1845 


005232 


104010 




1846 


00S234 


000763 




1847 








1848 


005236 


004767 


177742 


1849 


005242 


010077 


173750 


1850 


005246 


105777 


173742 


1851 


005252 


100375 




1852 


005254 


000207 




1853 








1854 


005256 


012700 


015256 


1855 


005262 


013501 




1856 


005264 


012702 


005364 


1857 


005270 


012767 


000005 


1858 


005276 


012267 


000060 


1859 


005302 


004767 


000010 


1860 


005306 


005367 


000044 


1861 


005312 


001371 




1862 


005314 


000205 




1863 


005316 


005067 


000036 


1864 


005322 


166701 


000034 


1865 


005126 


103403 




1866 


005330 


005267 


000024 


1867 


005334 


0^0772 




1868 


005336 


06670! 


000020 


1869 


005342 


062767 


000060 


1870 


005350 


116720 


000004 


1871 


005354 


000207 




1872 


005356 


000000 




1873 


005360 


000000 




1874 


005362 


000000 




1875 


005364 


023420 




1876 


005366 


001750 




1877 


005370 


000144 




1878 


005372 


000012 




1879 


005374 


000001 




1880 











MOV 


C5)4,%2 




MOV 


(5)+,%3 


BMOVAl 


MOVB 


(n + ,(2)-^ 




DEC 


%3 




8WE 


BMOVA 




RTS 


%5 


JSUBROUTINE TO 


CHECK FOR PUN( 


CPRDYl 


TST 


&PPS 




BMI 


CPRDYA 




TSTB 


epps 




BPL 


CPRDYA 




RTS 


%7 


CPRDYAI 


TYPES 
SM3 
IM16 
-1 

CHALT 






BR 


CPPDY 


JSUBROUTINE TO 


PUNCH ON H, S 


HSPCHJ 


JSR 


%7, CPPDY 




MOV 


%0,PPPB 




TSTB 


SPPS 




BPL 


.-4 




RTS 


%7 


;BINARY 


TO DECIMAL ASCII CON' 


BDCNV! 


MOV 


#OECVAL,%0 




MOV 


9(5)+#%l 




MOV 


#ADTENP»%2 




MOV 


»5,CNVCTR 


BDCNVAl 


MOV 


(23+,TENpWR 




JSR 


%7,SUBTEN 




DEC 


CNVCTR 




BNE 


BDCNVA 




RTS 


%5 


SUBTENi 


CLR 


DIGIT 


SUBTNAt 


SUB 


TENPWR, %1 




BCS 


SUBTNB 




INC 


DIGIT 




BR 


SUBTNA 


SUBTNR! 


ADD 


TENPWP,%1 




ADD 


#60, DIGIT 




MOVB 


DIGIT, C0)4- 




RTS 


%7 


CNVCTPl 


OPEN 




DIGIT! 


OPEN 




TENPWR! 


OPE(^ 




ADTENPI 


10000, 

1000, 

10fei. 

If. 

1 





|GET"TO"ADDRESS 
jGET COUNT 
;MOVE BYTE 
iDECREMENT COUNT 
jBRANCH IF NOT DONE, 
JDONE EXIT 
READY, 
jTEST FOR ERROR BIT, 
IBRANCH IF ERROR BIT SET. 
•TEST FOR READY BIT, 
;BRANCH IF READY NQT SET, 
jOK, EXIT, 
jTYPE NOT READY MESSAGE, 



, PUNCH CHARACTER IN REG 0, 

;G0 CHECK FOR PUnCh READY. 
J LOAD PUNCH BUFFER, 
;WAIT FOR DONE, 

fDONE, EXIT. 
VERT SUBROUTINE. 

fSET UP ADDR TO STORE DECIMAL ASCII IN R0 

jBINARY VALUE TO Rl , 

JADDR OF TEN POWER STRING TO R2, 

;SET Up FOP 5 pOwER CONVERSIONS, 

JMOVE POWER OF TEN VALUE TO TENPWH, 

jPERFORM CONVERSION 

JDONE 5 CONVERSIONS? 

•BRANCH IF NOT YET 5. 

JYES, EXIT, 

jCLEAR DIGIT 

JSUBTRACT TEN pOwER FROM BINARY VALUE, 

;BRANCH IF UNSUCCESSFUL SUBTRACTION. 



JRESTOrE SUBTRACTED VALUE, 

jCONVERT (DIGIT) TO ASCII 

;MOVE ASCII CHAR TO DECVAL FIELD. 

;EXIT. 



) 



005376 
005404 
005410 
005412 
005416 
005420 
005422 
005426 

005432 
005434 

005436 
005440 



005442 

005450 
005454 
005456 
005460 

005462 

005464 
005466 
005470 



005472 

005500 
005504 
005506 
005510 

005512 
005514 
005516 
005520 



005522 
005526 
00SS30 

005532 
005534 
005536 
00SS40 
005542 
005544 
005546 
005554 
00S5S6 



012767 
005767 
001402 
000167 
104003 
015540 
004767 
000167 



005462 

001750 
005450 



012767 
005777 
104013 
104006 
104013 



1 

005512 
001750 
005500 



012767 
005777 
104013 
104006 
104013 

100002 
005562 
001750 
005546 



004567 
000033 
00SS46 

104004 
015722 
015756 
017025 
177777 



005432 
174430 



174272 



007614 
174256 



005456 172334 
173534 



JPPG0 


- RF.ADER 


LOGIC TESTS 




PRG0S 


MOV 


»AT0,KSTAPT 


;ADDR OF IS' 




TS1 


XORFLG 






BEO 


IS 






JMP 


GETRDY 




iSl 


TYPE 

IM0 




;TYPE TITLE 




JSR 


%7,SWTL 






JMp 


GETRDY 


;G0 GET STAI 



AT0AJ 
AT0EI 



MOV 

TST 

SCOPE 

ERROR 

SCOPE 



«AT0E,MACHER 
aPRS 
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1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 



AT0J jTEST 8 

ATI ;NEXT TEST ADDH 

1000, ;I COUNT 

AT0A J SCOPE ENTRY 

jTEST ABILITY TO REFERENCE THE READER STATUS ^URD 



;SET UP MACHINE ERROR TRAP, 
jREFfcpENCE READER STATUS WORD, 

jERROR, TRAPPED WHEN REFERENCING REAUfc. 
; STATUS WORD (PRS), 



005506 172304 
173506 



ATI I 1 ;TEST » 

AT2 J NEXT TEST 

1000, ;I COUNT 

ATIA ;SCOPE ENTRY 

jTEST ABILITY TO REFERENCE THE READER BUFFER, 



<»«»■»»»'»»»«««»«««««"»» 



ATIA! 
ATlEt 



MOV 

TST 

SCOPE 

ERROR 

SCOPE 



#AT1E,MACHER 
aPRB 



jSET UP MACHINE ERROR TRAP, 
; REFERENCE READER BUFFER 

jERROR, TRAPPED WHEN REFERENCING 
{READER BUFFER, (PRB) 



AT2I 2+MANUAL ;TEST » 

AT3 ;NEXT TEST 

1000, ;I COUNT 

AT2A fSCOPE ENTRY, 

jTEST THAT READER POWER OFF SETS ERROR BIT (BIT 15) IN READER STATUS WORD, 

;PCll SIMULATOR FOR XOR TESTER 

jENTER IF XOR TESTER 

;G0 TO TYPES IF NOT TESTER 

jTYPE TURN READER POWER OFF, 



022777 
001401 
104006 



100000 173434 AT2AI 



JSR 


%5,PCSIM 


33 




AT2A 




TYPES 




IMl 




IM2 




IM23 




HALT 




CMP 


#BITl5,(aPRS 


BEQ 


, + 4 


ERROR 





JWAIT FOR USER 

JTEST FOR ERROR BiT ONLY, 

fBRAMCH IF ERROR BIT ONLY SET, 

lERROR.WlTH READER POWER OFF ONLY THE 
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1937 


005560 


104013 


1938 






1939 






1940 


005562 


100003 


1941 


005564 


005630 


1942 


005566 


001750 


1943 


005570 


005616 


1944 






1945 






1946 


005572 


004567 174756 


1947 


005576 


000033 


1948 


005600 


005616 


1949 


005602 


104004 


1950 


005604 


015722 


1951 


005606 


016014 


1952 


005610 


017025 


1953 


005612 


177777 


1954 


005614 


000000 


1955 


005616 


005777 173366 


195b 


005622 


100401 


1957 


005624 


104006 


1958 


005626 


104013 


1959 






1960 


005630 


100004 


1961 


005632 


005704 


1962 


005634 


001750 


1963 


005636 


005672 


1964 






1965 






1966 


005640 


004567 174710 


1967 


005644 


000033 


1968 


005646 


005664 


1969 


005650 


104004 


1970 


005652 


015722 


1971 


005654 


016051 


1972 


005656 


017025 


1973 


005660 


177777 


1974 


M05662 


000000 


1975 


005664 


005277 173320 


1976 


005670 


104400 


1977 


005672 


005777 173312 


1979 


005676 


100401 


1979 


005700 


104006 


1980 


005702 


104013 


1981 






1982 


005704 


100005 


1983 


005706 


005760 


1984 


005710 


001750 


1985 


005712 


005746 


1986 






1987 






1988 






1969 


005714 


004567 174634 


1990 


005720 


000433 


1991 


005722 


005740 


1992 


005724 


104004 



AT3S 



AT4I 



I TEST 



SCOPE 

3+MANUAL 
AT4 
1000, 
AT3A 

THAT READER OFF 
JSR %5,PC 
33 

AT3A 
TYPES 
IMl 
IM3 
IM23 
-1 

HALT 

TST 3PBS 
BMI ,+4 
ERROR 
SCOPE 

4+MANUAL 

AT5 

li^00, 

AT4A 
f #»»#«##»» it-tt'fr « 
THAT READER OUT 



OF 
%S,PCSIM 



fBiT SHOULD HAVE BEEN SET, 

^EXAMINE READER STATUS WORD MANUALLY, 

jTEST I 
jMEXT TEST 
jl COUNT 
JSCOPE ENTRY 

LINE SETS ERROR BIT (BIT 15) IN READER STATUS WORD, 

SIM 



ITYPEj "TURN READER POWER ON, 
|OFF-LINE, NO TApE 



;WAIT FOR USER, 

JCHECK BIT 15 OF PRS 

;BRANCH IF BIT 15 SET, 

?ERHOH, ERROR BlTCBlTlS) NOT SET BY 

jREADER BEING OFF-LINE, 

jTEST » 
;NEXT WORD 
;l COUNT 
f SCOPE ENTRY 

SETS ERROR BITCBIT 15) IN READER STATUS WORD, 



ISI 
AT4A! 



AT5! 



jTEST 
JWITH 



(3PBS 



OPBS 
.+4 



JSH 

33 

IS 

TYPES 

IMl 

IM4 

IM23 

-I 

HALT 

I-^C 

DELAYX 

TST 

BMI 

bPPOF 

SCOPE 

5+MANUAL 
AT6 
1000, 
AT5A 

THAT ERROR HIT 
READER POWER ON 

JSR %5,PC 

433 

IS 

TYPES 



«##«»»»#« 



T 15) 

EADEP 



;TYPE: SET READER AS FOLLOWSl POWER ON ON-LINE, 
?N0 TAPE, 



;WAIT FOR USER, 

J ENABLE READER 

;WAIT A WHILE, 

fCHECK BIT 15 OF PRS 

iBRANCH IF BIT 15 SET, 

jERPOP, ERROR BIT (BIT 15) NOT SET BY 

;READER OUT OF TAPE, 

?TEST # 
;HEXT TEST 
;I COUNT 
SSCOPfc ENTRY 

OF READER STATUS WORD (PPS) IS NOT SET 
ON-LINE AND WITH TAPE LOADED IN rEAUEH 



«»»«« 



;TURA( OFF RDH ERrOr ON XOR TESTER 

fTYPF,, SET READER AS FOLLOWS! POWER ON, ON-LIht, 
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1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 



005726 
005730 
005732 
005734 
005736 
005740 
005744 
005746 
005752 
005754 
005756 

005760 
005762 
005764 
005766 



005770 
005776 

006004 
006012 
006014 
006016 
006020 
006026 
006034 
006036 
006040 

006042 
006044 
00604b 
006050 



006052 
006060 
006066 
006070 
006076 
006100 
006102 

006104 
006106 
006110 
006112 



006114 
006120 
006124 



015722 
016271 
017025 
177777 

000000 

005277 
104400 
005777 

100001 
104006 
104013 

000006 
006042 
001750 
005776 



012767 
052777 
032777 
001002 
104006 
104013 
042777 
032777 
001401 
104006 
104013 

000007 
006104 
000144 
006060 



012767 
052777 
104002 
032777 

001401 
104006 
104013 

000010 
006140 
000144 
006114 



000340 
000100 
000100 



000100 

000100 



172000 
173204 
173176 



173162 
173154 



000340 
000100 



171716 
173122 



000100 173112 



IMl 

IM5 

1^.2 3 

-1 

HALT 

INC 

DELAYX 

TST 

BPL 

ERROR 

SCOPE 



0PHS 

apRS 



004767 174522 
005277 173064 
104 400 



AT6: 

AT7 

1000, 
AT6A 

jTEST ABILITY T 
;IN READER STAT 

MOV 
AT6AI BIS 

BIT 

BNE 
ATbEll ERROR 

SCOPE 
AT6BJ BIC 

BIT 

BEQ 

ERROR 

SCOPE 

AT7 1 7 

AT10 
100, 
AT7A 

JTEST ABILITY T' 
MOV 

AT7AI BIS 

SPESET 

BIT 

BEQ 

ERROR 

SCOPE 

J »#»#»»#»#*«»»» 

AT10I 10 

ATll 
100. 
AT10A 

jTEST THAT DONE 

AT10AI JSR 
INC 
DELAYX 



SET Al 
US WORD 
«PRTY7 
#BIT6 
»BIT6 
AT6B 



JTAPE IM READER, 



jWAIT FOR USER 

{ENABLE HEADER, 

jWAIT A WHILE, 

?CHECK BIT 15 OF PRS 

jBR IF BIT 15 NOT SET. 

jERROP, ERROR BIT (BIT 15) SET WITH NO 

{ERROR CONDITION PRESENT, 

J TEST n 
fNEXT TEST 
;I COUNT 
J SCOPE ENTRY 

ND CLEAR THE ID BIT (INTERRUPT ENABLE (BIT 6)) 



»BIT6i 
«BIT6i 
.♦4 



PSW ;SET PRIORITY 7, 
§PRS ;SET ID BIT (BIT 6) IN READER PRS 
9PRS ;CHECK ID BIT IN PRS 

JID BIT SET? 

{NO, ERROR, FAILED TO SET ID BIT (BIT 6) 

;IN PRS, 
&PRS {CLEAR ID BIT IN PRS, 
(3PRS {CHECK ID BIT IN PRS 

{BR IF BIT NOT SET. 

{ERROR. ID BIT IN PRS FAILED TO CLEAR, 



{TEST » 
{NEXT TEST 
{I COUNT 
{SCOPE ENTRY 

CLEAR ID BIT (BIT 6) WITH RESET INSTRUCTION 

»PRTY7,PSW {SET PRIORITY 7 

#BIT6,9PRS {SET ID BIT IN PRS 
{RESET 

»BIT6,ePRS {TEST ID BIT 

,+4 {BR IF IE BIT IS NOT SET, 

{ERROR. RESET INSTRUCTION FAILED TO 
{CLEAR ID BIT IN READER PRS, 

{TEST » 
{NEXT TEST 
{I COUNT 
{SCOPE ENTRY 

BIT SETS SOMETIME AFTER READER ENABLE, 
%7,ARRDY {CHECK FOR READER READY 
9PRS {ENABLE READER 

{WAIT, 
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2047 


006126 


105777 


173056 


2048 


006132 


100401 




2049 


006134 


104006 




2050 


006136 


104013 




2051 








2052 


006140 


000011 




2053 


006142 


006174 




2054 


006144 


001750 




2055 


006146 


006162 




2056 








2057 








2058 


006150 


004767 


174466 


2059 


006154 


005277 


173030 


2060 


006160 


104400 




2061 


006162 


105777 


173022 


2062 


006166 


100401 




2063 


006170 


104006 




2064 


006172 


104013 




2065 








2066 


006174 


000012 




2067 


006176 


006246 




2068 


006200 


000144 




2069 


006202 


006204 




2070 








2071 








2072 


006204 


004767 


174432 


2073 


006210 


005277 


172774 


2074 


006214 


104400 




2075 


006216 


105777 


172766 


2076 


006222 


100005 




2077 


006224 


000005 




2078 


006226 


105777 


172756 


2079 


006232 


100403 




2080 


006234 


104013 




2081 


006236 


104006 




2082 


006240 


104013 




2083 


006242 


104006 




2084 


006244 


104013 




2085 








2086 


006246 


000013 




2087 


006250 


006314 




2088 


006252 


000144 




2089 


006254 


006256 




2090 








2091 








2092 


006256 


104002 




2093 


006260 


004767 


174356 



TSTB 9PRS ITEST FOP DONE (BlT 7) 

BMI ,t4 ^BRANCH IF DONE BiT WAS SET,, 

AT10EI ERROR jEBROR, SOMETIME AFTER READER 

SCOPE jEMABLE# DONE fcJlT WAS NOT SET, 



ATllI 11 

AT12 

1000, 

ATllA 



jTEST 

J NEXT TEST 

}l COUNT 

J SCOPE ENTRY 



) 



>TEST ABILITY TO READ DONE BIT (BIT 7 OF PRS) RELIABLY 



ATllA: 



JSR 

INC 

DELAYX 

TSTB 

BMI 

ERROR 

SCOPE 



%7,ARRDY 
9PRS 



laPRS 
,+4 



JCHECK FOR READER READY, 

;ENABLE READER 

;WAIT, 

;TEST DONE BIT CBiT 7 OF PRS) 

JBR IF DONE BIT SET, 

JERROR, DONE BIT NOT SET^ OR FAILED 

;T0 READ IT, 

J »«»**»#*»»»»»»»»*»*»»*#**#*»»»**»*#«*«#**»■»*»»«■» »**»****»»***«#»»#»»«»»« 
AT12I 12 iTEST » 

AT13 jNEXT TEST 

100, J I COUNT 

AT12A JSCOPE ENTRY, 

jTEST THAT RESET COMMAND CLEARS DONE BIT (BIT 7 OF PRS) 

;CHECK FOR READER READY 
;ENABLE READER 
JWAIT, 

JTEST FOP DONE BIT 
jBRANCH IF DONE bIT NOT SET 
;RESET 

jTEST DONE BiT 
{BRANCH IF DONE BiT STILL SET, 

jERROR 1, DONE BIT NOT SET, 

jERROR 2. DONE BIT NOT RESET BY 

SCOPE ;RESET INSTRUCTION, 

J »»»#*«*»»»«»»»»«*•»»#»#»«»«»#»»»»♦*»#«»«»»#»»»»«■#»»##»*»»»»»»••»*# »*»«»»»*» 
AT13! 13 ;TEST8 

AT14 fNfcXT TEST 

100, fl COUNT 

AT13A ;SCOPE ENTRY 

J #»»»*##«»#*»»»*»»»»»»«»#»»«•***»*»*»»*»«*♦»»»*«*»»#«■«•»«*#»*»»»»*»»****»*» 
jTEST THAT DONE BlT CBIT7 OF PRS) IS CLEARED WHEN ENABLING THE READER, 
AT13AI SRESET ;RESET 

JSR %7,ARHDY jCHECK FOR READEp READY 



AT12AJ 


JSP 


%7,ARRDY 




INC 


0PRS 




DELAYX 






TSTB 


OPRS 




BPL 


AT12E1 




RESET 






TSTB 


9PRS 




BMI 


AT12E2 




SCOPE 




AT12EH 


ERROR 
SCOPE 




AT12E2J 


ERROR 
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2094 


006264 


005277 


172720 


2095 


006270 


105777 


172714 


2096 


006274 


100375 




2097 


006276 


005277 


172706 


2098 


006102 


105777 


172702 


2099 


006306 


100001 




2100 


006310 


104006 




2101 


006312 


104013 




2102 








2103 


006314 


000014 




2104 


006316 


006376 




2105 


006320 


000144 




2106 


006322 


006324 




2107 








2108 








2109 


006324 


004767 


174312 


2110 


006330 


005277 


172654 


2111 


006334 


105777 


172650 


2112 


006340 


100375 




2113 


006342 


005777 


172644 


2114 


006346 


105777 


172636 


2115 


006352 


100001 




2116 


006354 


104006 




2117 


006356 


004567 


174172 


2118 


006362 


000433 




2119 


006364 


006366 




2120 


006366 


062767 


001000 


2121 


006374 


104013 




2122 








2123 


006376 


000015 




2124 


006400 


006446 




2125 


006402 


000144 




2126 


006404 


006406 




2127 








2128 








2129 


006406 


104002 




2130 


006410 


004767 


174114 


2131 


006414 


005277 


172570 


2132 


006420 


105777 


172564 


2133 


006424 


100375 




2134 


006426 


005277 


172556 


2135 


006432 


032777 


004000 


2136 


006440 


001001 




2137 


006442 


104006 




2138 








2139 


006444 


104013 




2140 








2141 


006446 


000016 




2142 


006450 


006530 




2143 


006452 


000144 




2144 


006454 


006456 




2145 








2146 








2147 


006456 


104002 




2148 


006460 


004767 


174044 


2149 


006464 


012700 


000012 



PPPS 

lapps 



fPRS 
PPRS 



jENABLE READER 

jTEST FOR DONE BIT 

jBRANCH IF DONE BIT NOT SET 

jENABLE READER AGAIN 

JTEST DONE BIT AGAIN 

;BRANCH IF DONE BiT IS RESET 

{READER ENABLE DID NOT CLEAR DONE BIT 



INC 

TSTB 

BPL 

INC 

TSTB 

BPL 

ERROR 

SCOPE 
;♦#**«**»«»*»»#«#»«»«*#*»*»*»»«*»»*»»*»»•»*»*»*»»» 
AT14I 14 {TEST * 

AT15 JNEXT TEST 

100, jICOUMT 

AT14A {SCOPE ENTRY 

{»«»#»»«»»###»**#»»♦*»*»**»»»»»»#«»**«#***#*#***»♦»*»***»*»»***»«****** 
{TEST THAT DONE BIT IS CLEARED BY REFERENCING READER BUFFER (PRB) 



»««#«#««««««»'»«<»««»«««'»«» 



AT14AI 



177766 AT14CJ 



JSR 


%7,ARRDY 


INC 


PPPS 


TSTB 


0PRS 


BPL 


,-4 


TST 


iPRB 


TSTB 


3PRS 


BPL 


.♦4 


ERROR 




JSR 


%5,PCSIM 


433 




AT14C 




ADD 


#1000, XCT 


SCOPE 





{CHECK FOR READER READY, 

{ENABLE READER 

{TEST FOR DONE BIT 

{BRANCH IF DONE BIT NOT SET, 

{REFERENCE READER BUFFER (PRB) 

{TEST FUR DONE BIT 

{BR IF DONE BIT IS NOT SET, 

{ERROR 1, DONE BIT WAS NOT CLEARED 

{GO TO PCll XOR SIMULATOR 

{XOR COMM. 

{ RETURN ARGUMENT 



{BY REFERENCING READER BUFFER. 
{»###»»»*»»»»»*»#»*»*«•»»»»#***»«***#***»»»»*»*»***»»#**»»»«»*»*»******* 
ATl5t 15 {TEST « 

AT16 {NEXT TEST 

100, Jl COUNT 

AT15A {SCOPE ENTRY 

{*»#♦»»»«»»#»###»»»»###»*#*»»##»«*«#**»»«■»**»»**»**»«♦**♦*»************ 
{TEST THAT ENABLING READER (BIT OF PRS) SETS THE BUSY BIT (BIT 11 OF 
AT15AI SRESET 

{CHECK THAT NO READER ERROR EXISTS, 



AT15EJ 



JSR 

INC 

TSTB 

BPL 

INC 

BIT 

BNE 

ERROR 



%7,ARDER 

OPRS 

0PRS 

.-4 

9PRS 

»BITll,ePRS 

, + 4 



{ENABLE READER 

{TEST FOR BUSY BIT 

{BRANCH IF BUSY BIT SET 

{ERROR, READER ENABLE FAILED TO SET 

{BUSY BIT, OR UNABLE TO READ BUSY BIT 

»»»»»»»#»»»»»»■*«»#»»»»»**»»*»»*#»«•»******** 
{TEST n 
{NEXT TEST 
{I COUNT 
{SCOPE ENTRY 



SCOPE 
{«»»»«*»*»#»«»»«»*»»»»#»**»** 
AT16I 16 

AT17 

100, 

AT16A 

{««#««««»#»#«#»«#»««»»»««««»««««»««»*«»««««»»«»«»»««»««««««« »«««««^'»^**^^ 
{TEST ABILITY TO READ BUSY BIT (BIT 11 OF PRS) RELIABLY 
AT16AI SRESET 

JSR %7,ARDER {CHECK THAT NO READER ERROR EXISTS, 

MOV #10,,%0 fSET UP COUNTER TO 10, 
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2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2150 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169- 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

22450 

2201 

2202 

2203 

2204 

2205 



006470 
006474 
006500 
006502 



006514 
006516 
006520 
006522 
006524 
006526 

006530 
006532 
006534 
00653^ 



006540 
006544 
006550 
006556 
006564 
006572 
006574 
006576 
006600 
006602 
006606 
006610 
006612 
006616 
006620 
006622 
006624 
006626 

006630 
006632 
006634 
006636 

006640 
006644 
006646 
00665?^ 
006654 
006656 
006662 
006670 
006676 
006702 
006704 



003277 
105777 
100375 
005277 
032777 
001403 
005300 
001372 
104013 
104006 
104013 

000017 
006630 
000144 
006540 



012700 
004767 
017767 
017767 
026767 
001003 
005300 
001367 
104013 
004567 
001402 
017727 
004567 
001404 
017742 
104007 
017675 
104013 

000020 
006744 
000020 
006650 

105277 

104000 
000001 

005767 
100031 
013746 
012737 
012737 
005777 

104000 
000010 



172514 
172510 



000144 
174112 
172436 
172430 
172612 



173164 

000004 
006742 
000033 
172306 



006706 005777 172276 



172474 AT16BJ 



172624 
172620 
172612 



INC 
TSTB 
BPli 
INC 
BIT 
BEQ 
DEC 
BNE 
SCOPE 
AT16EJ ERROR 
SCOPE 

AT17J 17 

AT20 
100, 
AT17A 

JTEST ABILITY 

ATJ7A5 MOV 
JSR 
MOV 

AT17BS HOV 
CMP 
BMfc. 
DEC 
bNE 
SCOPE 

AT17ES JSP 
CHPl 
ORGRD 
JSR 
CHP2 
5UBRD 
EPPORl 
EM2 
SCOPE 

AT20I 20 

AT21 

20 

AT20A 

J #»»##*»«»»»»» 
INCB 
DELAY 



apRS 

PPRS 

,-4 

»PRS 

»BITU,apR5 

AT16E 

%0 

AT168 



lENABLE READER 
jWAIT FOR DONE BIT 

;ENABLE READER 

ITEST BUSY BIT 

JBRANCH IF BIT NOT SET 

iDECREMENT COUNTER 

JREPEAT CHECK OF BUSY BIT IF NOT 



;ERROP, BUSY BIT NOT SET, OR FAILED 
;T0 READ BUSY BIT 

J TEST » 
;NEXT TEST 
|I COUNT 
JSCOPE ENTRY 

TO READ READER BUFFER RELIABLY, 

«100.,%0 ;SET COUNT TO 100 IN R0 

%7,AREAD jGET CHARACTEH 

^PRB#CHR1 ;CCPRB) TO CHRl 

giPPB,ChR2 ;CCPRB) TO CHR2 

CHRi,CHR2 jCOMpARE CHRl AND CHR2, 

AT17E JBHANCH IF Rl AND R2 DON'T MATCH 

%0 

AT17B 



%5,ACNV4 



JCORRECT 1ST READ DATA TO ASCII 



JERPOR, REREAD OF PRB DID NOT MATCH 
; INITIAL DATA READ FROM PRB, 

J TEST « 
;NEXT TEST 
;I COUNT 
JSCOPE ENTRY 

3PPS 



AT20A: 



177060 AT20B: 



TST 

BPL 

MOV 

MOV 

MOV 

TST 

DELAY 

10 



XOPFLG 

AT20X 

P»4#-C%6) 

#XTP,(a»4 

ft 3 3, ei» 177060 

I3PRS 



;THE INSTRUCTIONS WiTHIN THIS TEST 

jARE USED WITH XOR TESTER ONLY 

;ERRORS WILL BE INDICATED ON XOR TESTER ONL^ 



III 
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2206 

2207 

2209 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 



006712 
006720 
006724 
006726 
006730 
006734 
006740 
006742 



012737 
005777 
104000 
000010 
005777 
012637 
104013 

000002 



006760 
006766 
006774 
007000 
007006 
007010 
007012 



012767 
042777 
004767 
052777 
000240 
104006 
104013 



007014 000022 

007016 007070 

007020 000144 

007022 007030 



007024 
007026 
007030 
007036 
007042 
007046 
007054 
007056 
007062 
007064 



104011 
007064 
016767 
005077 
004767 
052777 
000240 
005077 
104013 
104006 



007066 104013 



007070 
007072 
007074 
007076 



007100 

007102 



000023 
007146 
000144 
007104 



104011 
007144 



000433 
172264 



172254 

000004 



177060 



006744 000021 

006746 007014 

006750 000144 

006752 006760 



006754 104011 
006756 007012 



000000 
000100 
173662 
000100 



172166 
172146 
173614 

000100 

172126 



MOV 

TST 

DELAY 

10 

TST 

MOV 



»433,(a#177060 
0PRS 



AT20X! 
XTpj 



SCOPE 
RTl 

AT21I 21 

AT22 
100, 
AT21A 



PPRS 
(%6) + ,(a»4 



;T£ST » 
;NEXT TEST 
;I COUNT 
JSCOPE ENTRY 






171010 
172214 



AT21A! 



STRDRV 

AT21B 

MOV 

BIC 

JSR 

BIS 

NOP 

ERROR 

SCOPE 



JSET UP READER INTERRUPT VECTOR 

»PRTY0,PSW -SET PROCESSOR PRIORITY TO 
»BlT6,iaPRS {DISABLE READER INTERRUPT, 
%7,AREAD ;G0 READ CHARACTER, 
»BIT6»9PRS JENABLE READER INTERRUPT, 

|N0 OP 

;ERROR, READER FAILED TO INTERRUPT, 



AT21EI 
AT21B: 

AT22I 22 ?TE5T # 

AT23 jNEXT TEST 

l«'0. ;I COUNT 

AT22A ?SCOPE ENTRY 

!lEVEL AS READER INTERRUPT WITH PROCESSOR AT SAME PRIORITY 

?SET up READER INTERRUPT VECTOR 



170740 AT22AJ 



AT22E! 



STRDRV 

AT22E 

MOV 

CLR 

JSR 

BIS 

NOP 

CLR 

SCOPE 

ERROR 



RDRLVL,PSW 
@PRS 

%7,AREAD 
ltBIT6,9PRS 

9PRS 



;SET PROCESSOR PRIORITY SAME AS READER PRIORITY. 

JDISABLE READER INTERRUPT, 

jGO READ A CHARACTER, 

fENABLE READER INTERRUPT, 

;0K IF NO INTERRUPT OCCURS, 

fDlSABLE READER INTERRUPT, 



SCOPE 



JERROR, READER ERROWEOUSLy INTERRUPTED 
JWITH PROCESSOR AT SAME PRIORITY LEVEL AS 
J THE READER, OR THE READER IS AT HIGHER 
{PRIORITY LEVEL THAN SPECIFIED AT RDRLVL 

AT23J 23 jTEST n 

*T24 ;NEXT TEST 

li^^i fl COUNT 

*'''23A {SCOPE ENTRY 

!th?n READER'S INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
^TRDRV jSET up READER INTERRUPT VECTOR 



PCtl REftDER-PUNCH TESTS MACYll 27(732) 18-MAR«76 09l44 PAGE 47 
DSPCAE.SRC PRG0 » READER LOGIC TESTS 



2262 
2263 
2264 
2265 
2266 
2267 
226S 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 



007104 
007112 
007120 
007126 
007132 
007140 
007142 



016767 
162767 
042777 
004767 
052777 
000240 
10 



007144 104013 



007146 
007150 
007152 
007154 



007156 
007160 
007162 
007170 
007174 
007200 
007206 
007210 
007212 
007214 
007222 
007226 
007230 
007232 
007234 
007236 

007240 
007242 
007244 
007246 



007250 
007252 
007254 
007262 
007266 
007272 
007300 
007304 
007312 



007316 
007320 
007322 
007324 



000240 
104013 
104006 
104013 

000025 
007316 
001750 
007254 



104011 
007314 
012767 
005077 
004767 
052777 
005067 
012767 
104006 



007314 104013 



170664 
170656 
172062 

173530 

000100 172050 



000024 
007240 
000144 
007156 



104011 
007214 
012767 
005077 
004767 
052777 
000240 
104006 
104013 
012777 
012716 



172014 
173462 

000100 



007234 
007230 



170606 
172002 

171776 



AT23AI MOV RDrLVL,PSW j SET PROCESSOR PRIORITY ONE LEVEL LOWER 

SUB »40,PSW jTHAN READER PRIORITY 

BIC #BIT6#§PRS ;D1SABLE READER INTERRUPT 

JSR %7,AREAD ,'GO READ A CHARACTER, 

BIS #BIT6,iiPRS fENABLE READER INTERRUPT 

NOP ;NOP 

AT23EI ERROR ^READER FAILED TO INTERRUPT WITH 

^PROCESSOR PRIORITY ONE LEVEL LOWER THAN 
jREADER, THEREFORE, READER PRIORITY MUST BE 
jLOWER THAN SPECIFIED AT RDRLVL 

yTESi # 
JNEXT TEST 
Jl COUNT 
FSCOPE ENTRY 

NTERRUPT AFTER BTl «HEN DONE BIT IS NOT CLEARED 
fSET READER INTERRUPT VECTOR 

;SET PROCESSOR TO PRIORITY 
jDlSABLE READER INTERRUPT, 
;G0 READ A CHARACTER, 
fENABLE READER INTERRUPT 

»EPP0R 1, READER FAILED TO INTERRUPT 

R iCHANGE INTERRUPT VECTOR TO AT24E2 

jRETURN FROM INTERRUPT 



000340 
171722 
173370 

000100 

170472 
000340 



100026 
007412 
000144 
007350 



) 



AT23BI 
AT24I 



ITEST 
AT24AI 



AT24E1 
AT24C! 

AT24DI 

AT24E2 

}»»»»» 
AT25I 



SCOPE 

24 

AT25 
100, 
AT24A 

THAT READER DOES NOT REI 

STRDRV 

AT24C 

MOV 

CLR 

JSR 

BIS 

NOP 
I ERROR 

SCOPE 

MOV 

MOV 

RTI 

NOP 

SCOPE 
: ERROR 

SCOPE 



#PRTY0,PSW 
9PRS 

%7,AREAD 
#BIT6,?PRS 



#AT24E2,{aRDRVT: 
»AT24D,0%6 



25 

AT26 
1000, 
AT25A 

,TEST THAT READER INTERRUPTS I 
STRDRV 



170514 AT25AS 



171710 
170464 



AT25B 

MOV 

CLR 

JSR 

BIS 

CLP 

MOV 

ERROR 



#PRTY7,PSW 

0PRS 

%7,AREAD 

«RIT6,§PRS 

PSW 

#PRTY7,PSW 



AT25BJ SCOPE 

J #*»«#»*»»»«»«»»«»»*«■ »•»»#»»«*» 

AT26J 26+MANUAL 

AT27 

100, 

AT26A 



;ERPOR 
JRTI W 

jTEST 
jNEXT 
Jl COU 
; SCOPE 

MMEDIATE 
;SET P 
;AT27B 
I SET C 
JDISAB, 
I READ 
jENABL 
; LOWER 
jRAISE 
; ERROR 
; AFTER 
jli^TEP 

fTEST 
;NEXT 
;I COU 

? SCOPE 



2, READER REINTERRUPTED AFTER 
ITH DONE BIT LEFT ON 



ENTRY, 

LY UPON LOWERING Cp PRIORITY TO 0, 
EADEp INTERRUPT VECTOR TO 

P PRIORITY TO 7, 
LE PTRI, 
A CHARACTER, 
E PTRI 

PRIORITY TO 0, 

PRIORITY BACK TO 7, 
, READER FAILED TO INTERRUPT IMMEDIATELY 

LOWERING PRIORITY TO 
RUPTS TO HERE IF SUCCESSFUL, 

ii 

TEST 
NT 
ENTRY 
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2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
23S0 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 



007326 
007332 
007334 
007336 
007340 
007342 
007344 
007346 
007350 
007354 
007356 
007362 
007366 
007370 
007376 
007400 
007402 
007404 
007406 



007412 
007414 
007416 

007420 



007422 
007426 
007430 
007432 
007434 
007436 
007440 
007442 
007444 
007446 
007450 
007454 
007456 
007464 
007472 
007474 

007476 
007500 
007506 
007512 
007514 
007516 
007520 



004567 
000033 
007350 
104004 
016405 
017025 
177777 



ITEST THAT READER ERROR CRIPPLES 



READER ENABLE 



005777 
100012 
005277 
005767 
001010 
032777 
001003 
104013 
104006 
104013 
104006 



007410 104013 



100027 
007530 
000144 
007444 



004567 
000033 
007444 
104004 
016405 
017025 
177777 



104011 
007500 
005777 
100023 
042777 
052777 
000240 
104006 

104013 
012777 
012716 
000002 
000240 
104013 
104006 



171634 



171626 
172452 



004000 171612 





JSP 


%5,PCSIM 




3 3 






AT26A 






TYPES 






IM10 






IM23 






HALT 




AT26AI 


TST 


(aPRS 




RPL 


AT26E1 




INC 


9PRS 




TST 


XORFLG 




BNE 


AT26B 




BIT 


#BITll,apPS 




BNE 


AT26E2 




SCOPE 




AT26E1I 


ERROR 
SCOPE 




AT26E2I 


ERROR 





AT26BI SCOPE 

AT27I 27+MANUAL 
AT30 
100. 
AT27A 

iTEST THAT ERROR BIT IS ABLE TO 
»5ERVICE IT DOES NOT REINTERRUPT 



007520 
007514 



171524 
171516 



JSR 

33 

AT27A 

TYPES 

IM10 

IM23 

-1 

HALT 

AT27AI STRDRV 
AT27C 
TST 
BPL 
BIC 
BIS 
NOP 

AT27E2I ERROR 



%5,PCSIM 



fSKiP THIS XOR TEST 

;TYPE, SET HEADER AS FOLLOWS? POWER 

JOFF-LIME, TAPE IN READER 



;CHECK FOR ERROR BIT, 
;BHANCH IF ERROR BIT NOT SET, 
; ATTEMPT READER ENABLE 



jTEST READER BUSY BIT 



;ERPOP 1, ERROR BiT NOT SET, OR READER 
JNOT SET UP AS SPECIFIED, 

JREADER ENABLE WITH ERROR CONDITION SET 
;BUSY BIT, ERROR CONDITION SHOULD HAVE 
^DISABLED READER ENABLE, 

JTEST » 
jNEXT TEST, 
;I COUNT 
JSCOPF ENTRY 

NTERRUPT, AND AFTER INTERRUPT 
AGAIN, 



@PRS 
AT27E1 
#BlT6,epRS 
#BIT6,§PRS 



171512 AT27CI 



SCOPE 
MOV 
MOV 
RTI 

AT27DI NOP 

SCOPE 

AT27E3I ERROR 



SAT27E3,»RDRVTR 
#AT27D,&%6 



jTYPEf SET READER AS FOLLOWS! POwER OFF 
jOFFLINEj TAPE IN READER 



J SET UP READER INTERRUPT VECTOR 

jTEST ERROR BIT, 

jBRANCH IF ERROR BIT NOT SET (BIT 15 OF PRS), 

;DISABLE READER INTERRUPT. 

^ENABLE READER INTERRUPT 

JERROR 2, ERROR CONDITION FAILED TO CAUSE 
fREADER INTERRUPT 

?SET UP READER SERVICE TO AT27E3 
JMODIFY INTERRUPT RETURN ADDRESSD 
jRETURN FROM INTERRUPT 
JOK IF NO INTERRUPT, 

JERROR 3, ERROR CONDITION RESULTED IN 
|A REINTERRUPT AFTER INITIAL INTERRUPT 
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2374 


007522 


104013 






SCOPE 




2375 


007524 


104006 




AT27E1I 


ERROR 




2376 


007526 


104013 






SCOPE 




2377 








,iHHHj#«##4Hj,HHfij^^4»^^^j<j^f^^^, 


2378 


007530 


100030 




AT30I 


30+MANUAL 


2379 


007532 


177777 






-1 




2380 


007534 


001750 






1000, 




2381 


007536 


007576 






AT30A 




2382 








l»#»»»»«*^^»««#»»*#^^«»#«»«»^ 


2383 








JTEST THAT WITH 


ERROR BIT i 


2384 








1 ISSUING A READER ENABLE Ci 


2385 


007540 


004567 


173010 




JSR 


%5,P.CS1M 


2386 


007544 


000033 






33 




2387 


007546 


007562 






IS 




2388 


007550 


104004 






TYPES 




2389 


007552 


016405 






IM10 




2390 


007554 


017025 






IM23 




2391 


007556 


177777 






-1 




2392 


007560 


000000 






HALT 




2393" 


007562 


104002 




l$l 


SRESET 




2394 


007564 


104011 






STHDRV 




2395 


007566 


007624 






AT30B 




2396 


007570 


005277 


171414 




INC 


0PRS 


2397 


007574 


104400 






DELAYX 




2398 


007576 


005777 


171406 


AT30AI 


TST 


@PRS 


2399 


007602 


100025 






BPL 


AT30Et 


2400 


007604 


005077 


171400 




CLR 


0PRS 


2401 


007610 


052777 


00010P 171372 


BIS 


«BIT6»§PRS 


2402 


007616 


000240 






NOP 




2403 


007620 


104006 




AT30E2J 


ERROR 




2404 


007622 


104013 






SCOPE 




2405 


007624 


012716 


007632 


AT30BI 


HOV 


l(AT3aC,e%6 


2406 


007630 


000002 






RTI 




2407 


007632 


104011 




AT30CI 


STRDftV 




2408 


007634 


007654 






AT30D 




2409 


007636 


005777 


171346 




TST 


(apRS 


2410 


007642 


100005 






BPL 


AT30E1 


2411 


007644 


005277 


171340 




INC 


fPRS 


2412 


007650 


000240 






NOP 




2413 


007652 


104006 




AT30E3} 


KrhOp 




2414 














2415 


007654 


104013 




AT30DI 


SCOPE 




2416 


007656 


005077 


171326 


AT30E1I 


CLR 


epps 


2417 


007662 


104006 






ERROR 




2418 


007664 


104013 






SCOPE 





jWAS SERVICED 

jERROR i, ERROR BIT NOT SET* OR READER 

?NOT SET UP AS SPECIFIED 

J TEST 9 
JLAST TEST 
;I COUNT 
jSCOPE ENTRY. 

SET AND HAVING GENERATED AN INTERRUPT, 
AUSES AN IMMEDIATE INTERRUPT, 



;SET PTR VECTOR TO AT30B, 

jENABLE READER, 

JWAIT A WHILE, 

JTEST FOR ERROR, 

jBRANCH IF ERROR NOT SET, 

fDISABLE PTRI 

; ENABLE PTRI 

;ERHOR FAILED TO INTERRUPT, 

jERROR INTERRUPTS TO HERE, SET UP INTERRUPT 

;EXIT. AND EXIT, 

;SET PTH VECTOR TO AT30D, 

•TEST THAT ERROR BIT IS STILL ON, 

;BRANCH IF NO ERROR BIT, 

;READER ENABLE, SHOULD CAUSE 

{IMMEDIATE INTERRUPT, 

jERROR, READER ENABLE WITH PREVIOUS ERROR 

? INTERRUPT FAILED TO INTERRUPT, 

;0K, INTERRUPT OCCUREED, 

jDISABLE PTRI 

JERROR BIT NOT SET, 
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2419 








2420 








2421 


007666 


012767 


007724 


2422 


007674 


104004 




2423 


007676 


016360 




2424 


007700 


016334 




2425 


007702 


017025 




2426 


007704 


177777 




2427 


007706 


000000 




2428 


007710 


004767 


005326 


2429 


007714 


004767 


174000 


2430 


007720 


000167 


171764 


2431 








2432 


007724 


000000 




2433 


007726 


007752 




2434 


007730 


023420 




2435 


007732 


007740 




2436 








2437 








2438 


007734 


004767 


174512 


2439 


037740 


004767 


173136 


2440 


007744 


004767 


174422 


2441 


007750 


104013 




2442 








2443 


007752 


000001 




2444 


007754 


?10010 




2445 


007756 


000764 




2446 


007760 


007774 




2447 








244B 








2449 








2450 


007762 


012767 


177770 


2451 


007770 


004767 


174456 


2452 


007774 


104005 




2453 


007776 


004767 


173100 


2454 


010002 


004767 


174364 


2455 


010006 


104013 




2456 








2457 


010010 


000002 




2458 


010012 


010062 




2459 


010014 


001750 




2460 


010016 


010032 




2461 








2462 








2463 


010020 


012767 


177740 


2464 


010026 


004767 


174420 


2465 


010032 


012767 


000003 


2466 


010049 


104005 




2467 


010042 


004767 


173034 


2468 


010046 


004767 


174320 


2469 


010052 


005367 


174312 


2470 


010056 


001371 




2471 


010060 


104013 




2472 








2473 


010062 


000003 




2474 


010064 


010140 





JPRGU 
PRGl! 



,SBTTL PRGl 
READER TEST 



READER TEST 



MOV 

TYPES 

IM7 

IM6 

1M23 

-1 

HALT 

JSR 

JSR 

JMp 



»BT0rKSTART 



jSET ADDRESS OF FIRST ROUTINE 
;T5fPE SET UP INSTRUCTIONS 



%7,5w/TL 

PC,RTMCAL 

GETRDY 



««»»«#»»■»»««#« 



17431^ 



{CALIBRATE DELAY RTN WITH READER, 
jGO GET STARTED, 

BT0! J TEST » 

BTl jNEXT TEST 

10000, jl COUNT 

BT0A jSCOPE ENTRY 

fREAD AND CHECK J0000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, FULL SPEED 

JSR %7,BSYNC {SYNC READERf SET ERROR COUNTER, 

BT0AI JSR %7, BREAD ;G0 READ CHARACTER 

JSR %7,BCHECK >G0 CHECK CHARACTER READ, 
SCOPE 

BTl J 1 {TEST 

BT2 {NEXT TEST 

500, {I COUNT 

BTIA {SCOPE ENTRY 

{*«»»««###»###»»#»«»«#»»##lH^#4H^»#»IHHHHH^##4H^^»#,j,j4j^^^^j^j^^^j<j^j^j^^^j^^^^^^^^^^^ 

{READ AND CHECK 500 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, 
{RANDOM STALL BETWEEN CHARACTERS (0 TO 7 MsECS), 

#177770, STLMSK 

%7,BSYNC {SYNC READER! SET ERROR COUNTER 
{RANDOM STALL (0 TO 7 MSECS) 

%7, BREAD {GO READ CHARACTER 

%7,BCHECK {GO CHECK CHARACTER READ 



BTlAl 



MOV 

JSP 

STALL 

JSR 

JSR 

SCOPE 

{»»•»»*#*!>»»»*. 

BT2I 2 

BT3 

1000, 

BT2A 



{TEST » 
{NEXT TEST 
{I COUNT 
{SCOPE ENTRY 



{READ 1000 GROUPS OF 3 CHARACTERS EACH, RANDOM STALL (0 TO 31 MSECS) BEFORE EACH GROUP, 



MOV 
JSR 
174330 BT2AI MOV 

STALL 
BT2C1 JSR 
JSR 
DEC 
BNE 
SCOPE 
{»»#»-»»#»-»«»»'i 
BT3: 3 

BT4 



#177740, STLMSK {LIMIT STALLS TO 31 MSECS, 

%7,BSYNC {SYNC READER, SET ERROR COUNTER 

#3,RNCNT {SET CHAR COUNT TO 3, 

{RANDOM STALL (0 TO 31 MSECS), 

%7, BREAD {GO READ CHARACTER, 

%7,BCHECK {GO CHECK CHARACTER READ, 

RNCNT {3 CHARS READ? 

BT2C {BR IF NOT 3 CHARS YET, 

{TEST » 
{NEXT TEST 
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2473 


010066 


001750 




2476 


010070 


010112 




2477 








2478 








2479 








2480 


010072 


012767 


177740 174206 


2481 


010100 


012767 


177760 174260 


2482 


010106 


004767 


174340 


2483 


010112 


004767 


174230 


2484 


010116 


104005 




2485 


010120 


004767 


172756 


2486 


010124 


004767 


174242 


2487 


010130 


005367 


174234 


2488 


010134 


001371 




2489 


010136 


104013 




2490 








2491 


010140 


000004 




2492 


010142 


177777 




2493 


010144 


001750 




2494 


010146 


010170 




2495 








2496 








2497 








2498 








2499 


010150 


012767 


177740 174130 


2500 


010156 


012767 


177700 174202 


2501 


010164 


004767 


174262 


2502 


010170 


004767 


174152 


2503 


010174 


104005 




2504 


010176 


004767 


172700 


2505 


010202 


004767 


174164 


2506 


010206 


005367 


174156 


2507 


010212 


001371 




2508 


010214 


104013 
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1000, >I COUNT 

BT3A JSCOPE ENTRY, 

jREAO AND CHECK 1000 CHARACTER GROUPS OF RANDOM LENGTH (1 TO 15), 
JBANDOM STALt- (0 TO 31 MSECS) BETWEEN GROUPS, 

MOV #177740, STLMSK jLIMIT STALLS TO 3l MSECS, 
MOV #177760, RCMSK jLIMIT MAY CHAR COUNT TO 15 CHARS, 
JSP %7,BSYNC ISYNC READER, SET ERROR COUNTER, 
BT3AI JSR %7,GRCNT jGENERATE RANDOM CHAR COUNT, 

STALL 
BT3CI JSR %7, BREAD > GO READ CHARACTER, 

JGO CHECK CHARACTER, 
;ALL CHARS READ? 
JBRANCH IF NOT, 



■) 



%7, BREAD 
%7,BCHECK 
RNCNT 
BT3C 



JSR 

JSR 

DEC 

BHE 

SCOPE 

J *»»»»■»»*#«»»»»««»»»»»##»»»»»»»»»»»#»»*»»#»»»*»«»»*»*»«»«*»**«»#«*»«****■» 
BT4I 4 jTEST # 

-1 ?LAST TEST 

1000. jl COUNT 

BT4A fSCOPE ENTRY 

I »««»««»»«»««««#««««#«»«#««#««»#«««««««»««*#»««»»*»»*«»«««»»«##«#«»«««««« 
jREAD AND CHECK 1000 CHARACTER GROUPS OF SPECIAL BINARY COUNT PATTERN, 
jRANDOM LENGTH 
jGpOUPS (BETViEEN 1 AND 77), RANDOM STALL BETWEEN GROUPS (0 TO 31 MSECS) , 

MOV #177740, STLMSK 

MOV #177700, RCMSK 

JSR %7,BSYNC jSYNC READERi SET ERROR COUNTER, 
BT4AI JSP %7,GRCNT IGENERATE RANDOM CHARACTER COUNT, 

STALL jRANDOM STALL (0 TO 31MSECS) 

BT4CI JSR %7, BREAD ;G0 READ CHARATEP 

;G0 CHECK CHARACTER READ 
^DECREMENT RANDOM CHAR COUNT 
jGO READ AGAIN IF COUNT NOT 0, 



JSR 


%7, BREAD 


JSR 


%7,BCHECK 


DEC 


RNCNT 


BNE 


BT4C 


SCOPE 
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2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2S41 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 



010216 
010224 
010226 
010230 
010234 

010240 
010242 
010244 
010246 



010250 
010256 
010262 
010264 
010266 

010270 
010272 
010274 
010276 



010300 
010306 
010312 
010314 
010316 

010320 
010322 
010324 
010326 



010330 
010334 
010336 
010340 
010342 
010344 
010346 
010350 
010352 
010354 
010362 
010364 
010366 



012767 010240 171026 PBG2: 

li)4003 

015574 

004767 005006 

000167 171450 



.SBTTL 

MOV 

TYPE 

IM0A 

JSP 

JMp 



PRG2 - PUNCH LOGIC TESTS 

»CT0,KSTART jADDR OF 1ST ROUTINE TO KSTART 
fTYPE TITLE, 



010270 
001750 
010256 



012767 
005777 
104013 
104006 
104013 



1 

010320 
001750 
010306 



012767 
005777 
104013 
104006 
104013 

100002 
010370 
001750 
010354 



004567 
000433 
010354 
104004 
016434 
016467 
017025 
177777 



022777 
001401 
104006 
104013 



010264 
170732 



%7,SwTL 

GETPOY ;G0 GET STARTED, 

CT0! JTEST » 

CTl ?Nfc;XT TEST 

1000, ;I COUNT 

CT0A jSCOPE ENTRY 

jTEST ABILITY TO REFERENCE THE PUNCH STATUS WORD (PPS) 



CT0AI 
CT0EI 



MOV 

TST 

SCOPE 

ERROR 

SCOPE 



#CT0E,MACHER 
§PPS 



{REFERENCE PUNCH STATUS WORD 

;ERROP, TRAPPED WHEN REFERENCING PUNCH 
;STATUS WORD (FPS), 



010314 
170704 



CTl I 1 {TEST « 

CT2 fNEXT TEST 

1000, ;I COUNT 

CTIA JSCOPE ENTRY 

jTEST ABILITY TO REFERENCE THE PUNCH BUFFER (PPB) 



CTlAl 
CTlEi 



MOV 

TST 

SCOPE 

ERROR 

SCOPE 



»CTIE,MACHER 
PPPB 



fSET UP MACHINE ERROR TRAP, 
{REFERENCE PUNCH BUFFER, 



{TRAPPED WHEN REFERENCING 
{PUNCH BUFFER (PpB) 
{■»*»»»«»*»«##«»##»»»»«*«»*«•»««»#»##»#♦#»»**»»#»#»#»»#»**«*» »»»»»*^»»*»*»»* 
CT2I 2+MANUAL {TEST # 

CT3 {NEXT TEST 

1000, {I COUNT 

CT2A {SCOPE ENTRY 

{TEST THAT PUNCH POWER OFF SETS ERROR AND READY BITS IN pps 



{TYPE INSTRUCTIONS TO TURN POWER 
{OFF AND REMOVE TAPE FROM 
{PUNCH 



100200 170632 CT2A! 



JSR 


%5,PCSIM 


433 




CT2A 




TYPES 




IMll 




IM12 




IM23 




-1 




HALT 




CMP 


#100200, §PPS 


BEQ 


. + 4 


ERROR 




SCOPE 





010370 100003 
010372 010436 
010374 001750 



{WAIT FOR USER 

{TEST PPS, 

{BRANCH IF ERROR AND READY SET, 

{ERROR. PUNCH ERROp BIT (BIT 15) NOT SET BY 

{PUNCH POWER OFF, OR READY BIT NOT SET* OR 

{SOME OTHER BIT IS SET, EXAMINE PUNCH 

{STATUS WORD MANUALLY, 

{»«»«««##««»##«#«»«««#»«»«'»#»«"»«««»«««««»»#«#»«««»»»«»«»'»»»#»«»«»*«#«»«»» 

CT3I 3+MANUAL {TEST # 

CT4 {NEXT TEST 

1000, {I COUNT 
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25b5 
2S66 
2567 
2566 
2569 
2570 
257i 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 



010376 010424 



010404 
010406 
010410 
010412 
010414 
010416 
010420 
010422 
010424 
010430 
010432 
!?1P«'^34 

010436 
010440 
010442 
010444 



0J0446 
010452 
010454 
010456 
010460 
010462 
010464 
01046b 
010470 
010472 
010476 
010500 
010502 

010504 
010506 
010510 
010512 



010514 
010522 
010530 
010536 
010540 
010542 
010544 
010552 
010560 
010562 
010564 



004567 
000433 
010424 
104004 
016434 
016513 
017025 
177777 



J TEST 



005777 
100401 
104006 
104013 

100004 
010504 
001750 
010472 



004567 
000033 
010472 
104004 
016434 
016536 
017025 
177777 
000000 
005777 
100001 
104006 
104013 

000005 
010566 
001750 
010514 



012767 
052777 
032777 
001002 
104006 
104013 
042777 
032777 
001401 
104006 
104013 



fTEST 



000340 
000100 
000100 



000100 
000100 



167254 
170464 
170456 



170442 
170434 



CT5I 



JTEST 
CT5At 



i^l0566 000006 



CT6! 



CT3A 

THAT PU 
JSP 
433 
CT3A 
TYPES 
IMll 
IM13 
IM23 
-1 

HALT 
TST 
BMI 
E.RHOP 
SCOPE 

44'MAN 
CT5 

1000, 

CT4A 

THAT PU' 

JSH 

33 

CT4A 
TYPES 
IMll 
IM14 
1M23 
-1 

HALT 
TST 
HPL 
EPPOP 
SCOPE 

5 
CT6 

1000. 
CT5A 

ABILiTi 
MOV 
BIS 
BIT 
bfiE 
EPROH 
SCOPE 
! BIC 
BIT 
BEU 
EPPOR 
SCOPE 



jSCOPE ENTRY 

NCH OUT OF TAPE SETS ERROR BIT IN PPS 
%5,PCSIM 



«"»«#!»#«###»##«### 



JTYPE INSTRUCTIONS TO TURN PUNCH 
JPOWER ON, AND REMOVE TAPE FROM PUNCH, 



;WAIT FOR USER, 
9PPS ;TEST PPS 

.+4 jBR IF ERROR BIT SET, 

JERROR, PUNCH OUT OF TAPE FAILED TO SET 

JTHE ERROR BIT IN PPS CBIT 15), 

»»#»««.»»»*«■«»***»#»»»«»»#»«#**»»»*»«»###»«.##»##*»#*»##»»#«# 4» 

UAL jTEST » 

;NEXT TEST 
>I COUNT 
fSCOPE ENTRY 

Is NOT SET WHEN PUNCH POWER IS ON AND TApE IS IN PUNCH, 



hCH Ep 
%5 



HOP BIT 
PCSIM 



jTYPE INSTRUCTIONS TO LOAD TAPE IN 
;PUNCH AND TURN POWER ON, 



;wait for user, 
s j test pps 

;br if error bit not set, 

;erp0p, error bit set with no error 

jcondition present, 

jTEST » 

J NEXT TEST 

J I COUNT 

; SCOPE ENTRY 

SLT AND CLEAR ID tilT (BIT 6) IN pps 
#PRTY7,PSW ;SET PRlORlTlf 7 
«8IT6,9PPS ;SET ID BIT IN PpS (BIT 6 ) 
#BITb,§PPS jCHECK ID BIT IN PpS 
CT5H JBRANCH IF BIT SET 

jFAILtD TO SET ID BIT (BIT 6) IN PPS 

»BIT6,§PPS ;CLEAP ID BIT IN pps 
«BIT6,9PPS jCHECK ID BIT IN Pps 
,+4 jBR IF BIT IS NOT SET, 

;EHROR, ID BIT IN PPS FAILED TO CLEAR 



jTEST « 



»«'ii"»«»««««»«»««»»if'««»»« 
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2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
26b3 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
3674 
2675 
2676 



010570 
010572 
010574 



010576 
010604 
010612 
010614 
010622 
010624 
01062b 

010630 
010632 
010634 
010636 



010640 
010644 
010646 
01065U 

010652 
010654 
010656 
010660 



010662 
010664 
010670 
010676 
010702 
010704 
010706 
010712 
010720 
010724 
010730 
010734 
010736 
010740 



010742 
010744 
01074b 

010750 



010752 
010754 
010760 



010630 
000144 
010576 



012767 
052777 
104002 
032777 
001401 
104006 
104013 



010652 
001750 
010640 



105777 
100401 
104006 
104013 

000010 
010742 
000400 
010662 



104002 
004767 
012777 
105777 

100001 

104006 
013746 
012737 
005737 
105237 
012637 
104013 
022626 
000773 



000011 
011004 
000144 
010752 



104002 
004767 
016700 



000340 
000100 



167172 
170402 



000100 170372 



174314 
000000 
170312 



000004 
010736 
177060 
010672 

000004 



CT7 

100. 

CT6A 

STtST ABILITY Ti 

CT6AJ MOV 
BIS 

SRESET 
BIT 
BEU 
ERROR 
SCOPE 

CT7; 7 

CT10 

1000, 
CT7A 

;TEST THAT PEAD 
JTHAT THE READY 
CT7AI T5TB 
BMI 
ERROR 
SCOPE 

CT10J 10 

CTU 
256, 

CT10A 

jTEST THAT READ 
CT10AI SPESET 



IT I 



I CLEAR ID B 
«PPTY7,PSW 
«BIT6,9PPS 

»BIT6,9PPS 



««»♦»»*»»«*##»#»»». 



BIT (BIT 7 
IT CAN BE 
PPS 
+ 4 



) IS 
READ 



»»#»»•»##*#«»»♦#»»» 



170320 CT10Bt 



XPl 

CT10CJ 
XPBE! 



JSP 

MOV 

TSTB 

BPL 

ERROR 

MOV 

MOV 

TST 

INCB 

MOV 

SCOPE 

CMP 

8R 



BIT (BIT 

%7,CPRDY 
#0,0PPB 
»PPS 
.♦4 

§»4,-(%6) 

»XPBE,9»4 

PS177060 

P*CTl0B+2 

(%6)-»-,9ff4 



) OF 



(%6)+,(%6)+ 
XP 



;NEXT TEST 
;I COUNT 
JSCOPE ENTRY 

N PPS (8IT6) ivITH RESET INSTRUCTION 
;SET PRIORITY 7, 
;SET ID BIT IN PPS. 
; RESET, 

jTEST ID BIT IN PPS, 
;BR IF IE BIT NOT SET. 
JEHROP. RESET INSTRUCTION FAILED TO 
CLEAR ID BIT (BIT 6) IN PPS, 

jTEST n 
JNEXT TEST 
J I COUNT 
;SCOPE ENTRY 

SET FOLLOWING A rEsET INSTRUCTION, ANI 

RELIABLY, 

J TEST PPS 

jBR IF READY BIT SET, 

;EPROP, RESET FAILED TO SET READY BIT 

;0R FAILED TO READ READY BIT, 

?TEST « 
?NEXT TEST 
Jl COUNT 
JSCOPE ENTRY 

PPS IS RESET BY LOADING PUNCH BUFFER 

;RESET 

SCHECK FOR PUNCH READY 

;LOAD INTO PUNCH BUFFER (PPB) 

fTEST PPS 

JBP IF READY BIT RESET, 

jERROR, LOADING PUNCH BUFFER (PPB) 



fFAILED TO RESET READY BIT IN PPS 



(PPB) 



CTlli U 

CT12 
10^), 
CTllA 



jTEST S 
|NEXT TEST 
?I COUNT 
JSCOPE ENTRY 



■»»#»«#«#»»»»*##»#»##»»##*»*««#4J.# 



174224 
170232 



JTEST THAT READY BIT (BIT 7) IS NOT RESET BY BYTE LOADING PPBfl, 
CTllAl SPESET {RESET 

JSR %7,CPRDY iCHECK FOR PUNCH READY, 

MOV PPB,%0 
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2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 



010764 
010766 
010772 
010776 
011000 
011002 

011004 
011006 
011010 
011012 



011014 
011016 
011020 
011024 
011030 
011036 
011044 
011046 



112710 
10S777 
100401 
104006 
104013 

000012 
011052 
001750 
011020 



104012 
011050 
005067 
004767 
042777 
052777 
000240 
104006 



011050 104013 



011052 
011054 
011056 
011060 



011062 
011064 
011066 
011072 
011076 
011104 
011112 
011114 
011116 
011120 
011126 
011132 
011134 
011136 
011140 
011142 

011144 
011146 
011150 
011152 



000013 
011144 
001750 
011062 



104012 
011120 
005067 
004767 
042777 
052777 
000240 
104006 
104013 
012777 
012716 



166752 
174154 
000100 
000100 



170156 
170150 



166704 
174106 
000100 
000100 



011140 
011134 



000240 
104013 
104006 
104013 

000014 
011220 
001750 
011160 



jLOAD PPB+1 

?TEST PPS 

{BRANCH IF READY BIT NOT RESET, 

jERPOR. LOADING pPB+l CLEARED READY BIT, 



INC %0 

MOVB |0,0%0 

TSTB 9PPS 

BMI ,+4 
CTllEl ERROR 

SCOPE 
J »»»»»«<*#*##»»#«•»»»*#*»»#»«*«#»»»«»«»«■»*»»«#»*«»*»»*«»»*»»»**«»■»*■»**#*■»■»« 
CT12J 12 jTEST # 

CT13 JNEXT TEST 

1000, ?I COUNT 

CT12A ISCOPE ENTRY 

ITEST THAT PUNCH (READY BIT) IS ABLE TO INTERRUPT. IF THE INTERRUPT IS 
JSERVICED, IT WILL HAVE OCCURRED AT CORRECT VECTOR, 



) 



CT12AI 



STPCHV 




CT12C 




CLR 


PSW 


JSR 


%7,CPRDY 


BIC 


#BIT6,9PPS 


BIS 


#BIT6,@PPS 


NOP 




ERROR 





jSET UP PUNCH INTERRUPT VECTOR, 

J SET PRTY TO 0, 
JCHECK FOR PUNCH READY, 
;DISABLE PUNCH INTERRUPT 
JENABLE PUNCH INTERRUPT 



CT12E1 ERROR jERPOP, FAILURE TO INTERRUPT WITH 

jPUNCH READY BIT SET, 

CT12CI SCOPE J INTERRUPT VECTOR POINTS HERE, 

CT13I 13 fTEST » 

CT14 ?NEXT TEST 

1000, Jl COUNT 

CT13A fSCOPE ENTRY 

;TEST THAT PUNCH DOES NOT REINtERRUPT AFTEr RTI WHEN READY BIT IS NOT REsET, 



CT13AI 



170110 
170102 



170076 CT13C! 



CT13DI 



STPCHV 

CT13C 

CLR 

JSP 

BIC 

BIS 

NOP 

ERROR 

SCOPE 

MOV 

MOV 

RTX 

NOP 

SCOPE 

ERROR 

SCOPE 



jSET up PUNCH INTERRUPT VECTOR 

;SET PRTY TO 0, 
{CHECK FOR PUNCH READY, 
{DISABLE PUNCH INTERRUPT 
{ENABLE PUNCH INTERRUPT 

{ERRORl, PUNCH FAILED TO INTERRUPT, 



#CT13E2,3PCHVTR {CHANGE INTERRUPT VECTOR TO CT13E2 
#CT13D,0%6 {CHANGE INTERRUPT RETURN ADDRESS, 
{RETURN FROM INTERRUPT, 



PSW 

%7,CPRDY 
#BIT6r@PPS 
»BIT6#PPPS 



011154 104012 



CT13E2I ERROR {ERP0R2. PUNCH ReINTeRRUPTED AFTER RTI WITH 

{READY BIT LEFT ON, 
{*»#*»»#»»»»»■»■■»»#»*»»»»*»*»*»*»*#»«»»»«»«»»*»»**#»#»»»»»*»*»*»»***»****** 
CT14I 14 {TEST « 

CT15 {NEXT TEST 

1000, {I COUNT 

CT14A {SCOPE ENTRY 

{TEST THAT THE PUNCH DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY 
{LEVEL AS THE PUNCH. 

STPCHV {SET UP PUNCH INTERRUPT VECTOR, 
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2733 


011156 


011214 








CT14E 




2734 


011160 


016767 


170042 


166610 


CT14AI 


MOV 


PCHLVL/PSW 


2735 


011166 


005077 


170022 






CLR 


§PPS 


2736 


011172 


004767 


174006 






JSP 


%7,CPRDY 


2737 


011176 


052777 


000100 


170010 




BIS 


»BIT6,9PPS 


2738 


011204 


000240 








NOP 




2739 


011206 


005077 


170002 






CLR 


SPPS 


2740 


011212 


104013 








SCOPE 




2741 


011214 


104006 






CT14EI 


ERROR 




2742 
















2743 
















2744 


011216 


104013 








SCOPE 




2745 










{»»»#*##»»»»*»»»»»»«»»»»«»#«»* 


2746 


011220 


000015 






CT15I 


15 




2747 


011222 


011276 








CT16 




2748 


011224 


001750 








1000, 




2749 


011226 


011234 








CT15A 




2750 










{»»»»«*«*##»»*»#»»»*#»#«»»««»» 


2751 










{TEST THAT PUNCH INTERRUPTS W] 


2752 










{THAN THE PUNCH 


PRIORITY, 


2753 


011230 


104012 








STPCHV 




2754 


011232 


011274 








CT15B 




2755 


011234 


016767 


167766 


166534 


CT15AI 


MOV 


PCHLVL,PSW 


2756 


011242 


162767 


000040 


166526 




SUB 


«40,PSW 


2757 


011250 


042777 


000100 


167736 




BIC 


#BIT6,&PPS 


2758 


011256 


004767 


173722 






JSR 


%7,CPRDY 


2759 


011262 


052777 


000100 


167724 




BIS 


#BIT6#9PPS 


2760 


011270 


000240 








NOP 




2761 


011272 


104006 






CT15EI 


ERROR 




2762 
















2763 
















2764 
















2765 


011274 


104013 






CT15BI 


SCOPE 




2766 










,*»»»*»»*»»»»*»*»»*»»*»»**»#«< 


2767 


011276 


000016 






CT16I 


16 




2768 


0U300 


011356 








CT17 




2769 


011302 


001750 








1000, 




2770 


011304 


011312 








CT16A 




2771 










{»#*#»#»«»«»»#*»»»»»»»*4»»»#»»H 


2772 










{TEST ' 


THAT PUNCH INTERRUPTS I! 


2773 


011306 


104012 








STPCHV 




2774 


011310 


011354 








CT16B 




2775 


011312 


012767 


000340 


166456 


CT16AI 


MOV 


#PRTY7,PSW 


2776 


011320 


004767 


173660 






JSP 


%7,CPRDY 


2777 


011324 


042777 


000100 


167662 




BIC 


«BIT6,@PPS 


2778 


011332 


052777 


000100 


167654 




BIS 


#BIT6»iPPS 


2779 


011340 


005067 


166432 






CLR 


PSW 


2780 


011344 


012767 


000340 


166424 




MOV 


»PRTY7,PSW 


3781 


011352 


104006 






CT16Et 


ERROR 




2782 
















2783 


011354 


104013 






CT16BI 


SCOPE 




2784 










{«»#»»*,*»»»»«#»»«»«««#»»#»«#»■ 


2785 


011356 


100017 






CT17I 


174-MANUAL 


2786 


011360 


011504 








CT20 




2787 


011362 


000144 








100. 




2788 


011364 


011410 








CT17A 





{SET PROCESSOR PRIORITY SAME AS PUNCH, 

{DISABLE PUNCH INTERRUPT. 

{CHECK FOR PUNCH READY, 

{ENABLE PUNCH INTERRUPT, 

{OK IF NO INTERRUPT OCCURS, 

{DISABLE PUNCH INTERRUPT. 

{ERROR. PUNCH ERRONEOUSLY INTERRUPTED 
{WITH PROCESSOR AT SAME PRIORITY LEVEL 
{AS THE PUNCH, Or THE PUNCH IS AT HIGHER 
{PRIORITY LEVEL THAN SPECIFIED AT PCHLVL, 
■»»»»»#«■»#»»#»*»»**»»»»»*»»*#»##»■»■»»»■»***»**# 
{TEST « 
{NEXT TEST 
{I COUNT 
{SCOPE ENTRY 

ITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 

{SET UP PUNCH INTERRUPT VECTOR 

{SET PROCESSOR PRIORITY ONE LEVEL LOWER 
{THAN PUNCH PRIORITY, 
{DISABLE PUNCH INTERRUPT 
{CHECK FOR PUNCH READY, 
{ENABLE PUNCH INTERRUPT, 

{PUNCH FAILED TO INTERRUPT WITH PROCESSOR 
{PRIORITY ONE LEVEL LOWER THAN PUNCH, 
{THEREFORE, PUNCH PRIORITY MUST 
{BE LOWER THAN SPECIFIED AT PCHLVL, 
{HERE IF INTERRUPT OCCURS, 

{TEST # 

{NEXT TEST 

{I COUNT 

{SCOPE ENTRY 
*»»■»»»»«##*»»»»»■»»»#»»»»##»*»»»»#»»»»»»«*«»* 
MMEDIATELY UPON LOWERING CP PRIORITY TO 0, 

{SET UP PUNCH INTERRUPT VECTOR 

{SET PROCESSOR PRIORITY TO 7 

{CHECK FOR PUNCH READY, 

{DISABLE PUNCH INTERRUPT 

{ENABLE PUNCH INTERRUPT 

{LOWER PRTY TO 0, 

{RAISE CP PRIORITY BACK TO 7, 

{ERROR, PUNCH FAILED TO INTERRUPT IMMEDIATELY 

{AFTER CP PRIORITY WAS LOWERED TO 0, 

{HERE IF INTERRUPT OCCURS, 

{TEST # 
{NEXT TEST, 
{I COUNT 
{SCOPE ENTRY 
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2789 








2790 








2791 








2792 


011366 


004567 


171162 


2793 


011372 


000433 




2794 


011374 


011410 




2795 


011376 


104004 




2796 


011400 


016567 




2797 


011402 


017025 




279S 


011404 


177777 




2799 


011406 


000000 




2B00 


011410 


104002 




2801 


011412 


104012 




2802 


011414 


011454 




2803 


011416 


005777 


167572 


2804 


011422 


100026 




2805 


011424 


112777 


000000 167564 


2806 


011432 


042777 


000100 167554 


2807 


011440 


052777 


000100 167546 


2808 


011446 


000240 




2809 


011450 


104006 




2810. 


011452 


104013 




2811 


011454 


012777 


011474 167542 


2812 


011462 


012716 


011470 


2813 


011466 


000002 




2814 


011470 


000240 




2815 


011472 


104013 




2816 


011474 


104006 




2817 


011476 


104013 




2818 


011500 


104006 




2819 


011502 


104013 




2820 








2821 


011504 


100020 




2822 


011506 


177777 




2823 


011510 


001750 




2824 


011512 


011536 




2825 








2826 








2827 








2828 


011514 


004567 


171034 


2829 


011520 


000433 




2830 


011522 


011536 




2831 


011524 


104004 




2832 


011526 


016567 




2833 


011530 


017025 




2834 


011532 


177777 




2835 


011534 


000000 




2836 


011536 


104002 




2837 


011540 


104012 




2838 


011542 


011572 




2839 


011544 


005777 


167444 


2840 


011550 


100025 




2841 


0U552 


005077 


167436 


2842 


0U556 


052777 


000100 167430 


2843 


011564 


000240 




2844 


011566 


104006 





%5,PCS1M 



CT17AI 



@PPS 

CT17E3 

«0,BPPB 

#BIT6,9PPS 

j»BIT6,@ippS 



;TURN PUN ERROR ON IF ON XOR TESTER, 

{TYPE INSTRUCTION TO REMOVE TAPE FROM PUNCH 



• pgsET 

{SET UP PUNCH INTERRUPT VECTOR, 

fTEST PPS 

iBRANCH IF ERROR BIT NOT SET, 
?0 TO PPB TO RESET READY, 
{DISABLE PUNCH INTERRUPT 
{ENABLE PUNCH INTERRUPT 



{TEST THAT THE PUNCH ERROR BIT IS ABLE TO INTERRUPT, AND THAT IT DOES NOT 
;PEINTERRUPT AFTER RTI, 

JSR 

433 

CT17A 

TYPES 

IM15 

IM23 

-1 

HALT 

SRESET 

STPCHV 

CT17B 

TST 

BPL 

MOVB 

BIC 

BIS 

NOP 
CT17E1I ERROR 

SCOPE 

MOV 

MOV 

RTI 

NOP 

SCOPE 
CT17E2I ERROR 

SCOPE 
CTI7E3I ERROR 

SCOPE 

CT20I 20+MANUAL {TEST i 

-1 {LAST TEST 

1000, {I COUNT 

CT20A {SCOPE ENTRY 

{»»«»«»«»#«»««»»«»«««»#«»»«»«««»««»*#«««»#»«»««*»«»»»»«»*«»««»«»»«»»«*««« 
{TEST THAT WITH ERROR BIT SET AND HAVING GENERATED AN INTERRUPT, 
{LOADING THE PUNCH BUFFER CAUSES AN IMMEDIATE INTERRUPT, 



{MESSAGE TO REMOVE TApE FROM PUNCH 



CT17BI 



CT17CI 



{ERROpl. PUNCH ERROR BIT FAILED TO 

{CAUSE INTERRUPT, 
«CTl7E2,iPCHVTR {CHANGE INTERRUPT VECTOR TO CT17E2 
#CT17C,9%6 {CHANGE INTERRUPT RETURN ADDR TO CI17C 

{RETURN FROM INTERRUPT 

{HERE IF NO REINtERRUPT OCCURS, 

{ERR0R2, PUNCH RElNTERRUPTED AFTER 
{RTI, (ERROR BIT LEFT ON), 
{ERR0R3, ERROR BIT NOT SET, 





JSR 


%5,PCSIM 




433 






CT20A 






TYPES 






IM15 






IM23 






HALT 




CT20AI 


SPESET 
STPCHV 
CT20B 






TST 


9PPS 




BPL 


CT20E1 




CLP 


DPPS 




BIS 


#BIT6,PPPS 




NOP 




CT20E2t 


ERROR 





{RESET, 

{SET PTPI VECTOR TO CT20B, 

{TEST FOR ERROR 

{BRANCH IF ERROR BIT NOT SET, 

{DISABLE PTPI 

{ENABLE PTPI 

{ERROR FAILED TO INTERRUPT, 
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2845 


011570 


104013 


2846 


011572 


012716 


2847 


011576 


000002 


2848 


011600 


104012 


2849 


011602 


011622 


2850 


011604 


005777 


2851 


011610 


100005 


2852 


011612 


005077 


2853 


011616 


k}00240 


2854 


011620 


104006 


2855 






2856 


011622 


104013 


2857 


011624 


005077 


2858 


011630 


104006 


2859 


011632 


104011 



J67364 



SCOPE 
CT20BI MOV 
RTI 
CT20CI STPCHV 
CT20D 
TST 
BPL 
CLR 
NOP 
CT20E3J ERROR 

CT20D: SCOPE 
CT20E1I CLP 

ERROR 
SCOPE 



«CT20C»e>%6 



fPPS 

CT20E1 

9PPB 



{ERROR INTERRUPT COMES HERE, SET UP 
{INTERRUPT EXIT TO CT20 AND EXIT, 
{SET PTPI VECTOR TO CT20D, 

{TEST ERROR 

{BRANCH IF ERROR BIT NOT SET, 

{LOAD PUNCH BUFFER, 

{BUFFER LOAD WITH PREVIOUS ERROR 
{INTERRUPT FAILED TO INTERRUPT, 
{OK, INTERRUPT OCCURRED, 
{CLEAR PTPI 
{ERROR. ERROR BIT NOT SET, 
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2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2860 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 



011634 
011642 
011644 
011646 
011652 
011656 

011662 
011664 
011666 
011670 



011672 
011700 
011704 
011706 
011712 
011716 
011722 
011726 
011730 

011732 
011734 
011736 
011740 



011742 
011750 
011756 
011762 
011764 
011770 
011774 
012000 
012002 
012006 
012010 

012012 
012014 
012016 

012020 



012767 
104003 
015627 
004767 
004767 
000167 



011732 
000005 
011672 



012767 
004567 



.SbTTL 
011662 167410 PRG3I MOV 
TYPE 
IM0B 
003370 JSR 

172312 JSR 

170026 JMP 

DT0t 

DTI 

5 

DT0A 

JPUNCH SPECIAL 
001000 167476 DT0A: MOV 
JSP 



004767 
004767 
004767 
005367 
001371 
104013 

000001 
012012 
000005 
011750 



012767 
012767 
004567 
000001 
004767 
004767 
004767 
104005 
005367 
001370 
104013 

000002 
012114 



000322 

172742 
172774 
173314 
167450 



177720 

001000 
000244 

172664 
172716 
173236 



PRG3 - PUNCH TEST 

#DT54,KSTART jAODR OF 1ST ROUTINE TO KSTART, 
»TYPE TITLE, 



%7,SWTL 

PCPTMCAL 

GETRDY 



172336 
167420 



012022 012767 
012030 012767 
012036 012767 



177720 
177760 

001000 



172256 
172330 
167332 



JSR 

DT0BJ JSR 

JSR 

DEC 

BNE 
SCOPE 

f »«#»»**»#»*« 4»« 

DTi: 1 

DT2 

5 

DTIA 
J »»«»##»»»»»#■» 
IPUNCH SPECIAL 
JPUNCHING EACH 

MOV 
DTIAI MOV 

JSR 

1 

JSP 
DTIBJ JSR 

JSP 

STALL 

DEC 

BNE 

SCOPE 
I »»#»»«»»»»»»»» 
DT2! 2 

UT3 

5 

DT2A 

jPUNCH SPECIAL 
; (RANDOM STALL 
jMAXIMUM STALL 

MOV 

MOV 
DT2A! MOV 



jCALIBRATE DELAY RTN WITH PUNCH, 
>G0 GET STARTED 

J TEST # 
;NtXT TEST 
fl COUNT 
; SCOPE ENTRY 

"»«»»« #»«###4}^'» »»»««##«««'««»««»»»«'«# «»##«-)(' #tt«##»##tt«tf# it »4»*» 

UNARY COUNT PATTERN IN PUNCH MODE (FULL SPEED) 

»512,#RCNT jSET CHARACTER COUNT TO 512 

%5rPFRNT fGO PUNCH FRONT END AND MODE 

^INDICATOR 

%7,InBIN ^INITIALIZE SPECIAL BINARY COUNT 

%7,GTBIN -GET BINARY CHARACTER 

%7,HSPCH ,.G0 PUNCH THE CHARACTER 

RCNT ;DECREMENT CHAR COUNT. 

DT0B JBRANCH IF COUNT NOT YET YET, 

;TEST # 
JNEXT TEST 
•I COUNT 
; SCOPE ENTRY 

BINARY COUNT PATTERN IN puNCH MODE 1 (RANDOM STALLS AFtER 
CHARACTER. MAXIMUM STALL 47 MILLISECONDS) 
H77720»STLMSK ;SET STALL MASK FOR 57(8) MAX 



) 



#512,, RCNT 
%5,PFRNT 

%7,INBIN 
%7,GTBIN 
%7,HSPCH 

RCNT 
DTIB 



JSET CHARACTER COUNT TO 512, 

jGO PUNCH FRONT END, AND MODE 1 

; INDICATOR 

jINITIALIEE SPECIAL BINARY COUNT, 

;GET BINARY CHARACTER, 

;G0 PUNCH THE CHARACTER, 

JRANDOM STALL. 

{DECREMENT CHAR COuNT, 

jBRANCH IF COUNT NOT YET 0, 



«»»««'«»««#«»« 



jTEST « 
jNEXT TEST 
;I COUNT 
jSCOPE ENTRY 

BINARY COUNT PATTERN IN pgNCH MODE 2, 
BEFORE PUNCHING RANDOM LENGTH GROUP OF CHARACTERS), 
47 MILLISECONDS, MAXIMUM GROUP LENGTH -15) 
#177720»STLMSK jSET STALL MASK FOR 57(8) MAX, 
#177760, RCMSK J SET CHAR GROUP MASK FOR 17(8) MAX), 
#512., RCNT ;SET CHARACTER COUNT TO 512. 
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2916 


012044 


004567 


000156 


2917 


012050 


000002 




2918 


012052 


004767 


172576 


2919 


012056 


004767 


172264 


2920 


012062 


104005 




2921 


012064 


004767 


172622 


2922 


012070 


004767 


173142 


2923 


012074 


005367 


167276 


2924 


012100 


001404 




2925 


012102 


005367 


172262 


2926 


012106 


001366 




2927 


012110 


000762 




2928 


012112 


104013 




2929 








2930 


012114 


000003 




2931 


012116 


012206 




2932 


012120 


000001 




2933 


012122 


012124 




2934 








2935 








2936 








2937 








2938 


012124 


012767 


001000 167244 


2939 


012132 


004567 


000070 


2940 


012136 


000003 




2941 


012140 


004767 


172510 


2942 


012144 


104000 




2943 


012146 


011610 




2944 


012150 


012767 


000040 172212 


2945 


012156 


004767 


172530 


2946 


012162 


004767 


173050 


2947 


012166 


005367 


167204 


2948 


012172 


001404 




2949 


012174 


005367 


172170 


2950 


012200 


001366 




2951 


012202 


000760 




2952 


012204 


104013 




2953 








2954 


012206 


000004 




2955 


012210 


177777 




2956 


012212 


000001 




2957 


012214 


012216 




2958 








2959 








2960 


012216 


104003 




2961 


012220 


020201 




2962 


012222 


104010 




2963 


012224 


104013 




2964 








2965 


012226 


012701 


000024 


2966 


012232 


005000 




2967 


012234 


004767 


172776 


2968 


012240 


005301 




2969 


012242 


001374 




2970 


012244 


012700 


000377 


2971 


012250 


004767 


172762 



JSP 



%5,PFRNT 



JSR %7,INBIN 

DT2B! JSR %7,GRCNT 
STALL 

DT2C! JSR %7,GTBIN 
JSR %7,HSPCH 
DEC RCNT 
BEG nT2D 
DEC RNCNT 
BNE DT2C 
BR DT2B 

DT2DS SCOPE 

;*««»#*#»«*»»#»#«•»♦#»»»♦» 

DT3S 3 

DT4 

1 

DT3A 



;G0 PUNCH FRONT END AND MODE 2 

; INDICATOR 

jINITIALIZE SPECIAL BINARY COUNT, 

{GENERATE RANDOM CHARACTER COUNT 

{RANDOM STALL, 

;GET BINARY CHARACTER, 

jPUNCH THE CHARACTER, 

jDECREMKNT CHAR COUNT 

JBRANCH IF COUNT IS 0. 

jNOT 0, DECREMENT RANDOM CHAR COUNT. 

jBRANCH if COUNT NOT YET 0, 

jBRANCri IF COUNT 0. 



J TEST ». 
jNEXT TEST, 
jl COUNT, 
jSCOPE ENTRY. 

JPUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 3, 

JSTALL 5 SECONDS, PUNCH 32 CHARACTERS, UNTIL THE ENTIRE PATTERN IS 

{COMPLETED, 

DT3AI MOV »512,,RCNT jSET CHARACTER COUNT TO 512, 

JGO PUNCH FRONT END AND MODE 3 

{INDICATOR, 

JINITIALIZE SPECIAL BIN COUNT 
DT3B} DELAY jSTALL 5 SECONDS 

JSET GROUP COUNT TO 32, 
JGET BINARY CHARACTER 
JPUNCH CHARACTER 
J DECREMENT CHAR COUNT 
{BRANCH IF COUNT IS 
JDECREMENT GROUP COUNT 
{BRANCH IF COUNT NOT YET 0, 
jBRANCH IF COUNT 0, 



MOV 


»512,,RCNT 


JSR 

3 

JSP 


%5,PFRNT 


%7,INBIN 


DELAY 




5000, 




MOV 


#32,, RNCNT 


JSF 


%7,GTBIM 


JSR 


%7,HSPCH 


DEC 


RCNT 


BEQ 


DT3D 


DEC 


RNCNT 


BNE 


DT3C 


BR 


DT3B 


SCOPE 





»»*»####»«#»«*»»»#»#»»»♦•»#»«»# 



DT3DI 

J*»#»#»»»»#*##*»#»<HH»#«»»«»#<HHt»»»«»###4HHHj 

DT4t 4 jTEST#, 

-1 JLAST TEST 

1 jl COUNT, 

DT4A jSCOPE ENTRY POINT, 

{THIS ROUTINE PROVIDES END OF PASS HALT FOR PRG3, 
DT4AI TYPE {TYPE END OF PASS 

P3END 

CHALT jCOMMON HALT. 

SCOPE 

jSUBROUTINE TO PUNCH FRONT END AND MODE CODE (USED BY PRG3), 



PFRNTJ 



MOV 


#20,,%1 


CLR 


%0 


JSR 


%7,HSPCH 


DEC 


%1 


BNE 


,-6 


MOV 


#377, %0 


JSR 


%7,HSPCH 



{PUNCH 20 BLANK CHARACTERS (000) 

{CLEAR R0 

{PUNCH CHAR, 

JDECREMENT Rl 

JBRANCH IF NOT 20 CHARCTERS YET, 

jPUNCH RUBOUT CHAR (SYNC CHAR), 
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2972 


012254 


012500 


2973 


012256 


004767 


2974 


012262 


012701 


2975 


012266 


005000 


2976 


012270 


004767 


2977 


012274 


005301 


2978 


012276 


001374 


2979 


012J00 


000205 


2980 






2981 
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MOV 


(5)+,%0 


JSP 


%7,HSPCH 


MOV 


»4,%l 


CLR 


%0 


JSR 


%7,HSPCH 


DEC 


%1 


BNE 


,"6 


RTS 


%5 



JMOVE MODE CODE TO R0 

jPUNCH MODE CODE, 

fPUNCH 4 BLANK CHARACTERS, 



JEXIT, 
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2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 



012302 
012304 
012306 
012310 
012312 
012314 
012316 
012320 
012324 
012330 
012336 
012344 
012350 
012354 
012356 
012362 
012364 
012370 
012372 
012374 
012400 
012402 
012404 
012406 
012410 
012414 
012420 
012422 
012426 
012430 
012432 
012440 
012442 
012450 
012454 
012456 
012460 
012464 
012466 
012470 
012472 
012474 
012476 
012502 
012510 
012512 
012516 
012520 
012522 
012524 
012526 
012530 
012536 



jSBTTL PRG4 - PUNCH VERIFY PROGRAM 
JTHIS PROGRAM VERIFIES TAPE PRODUCED BY PRG3, 
jANY ERRORS FOUND ARE REPORTED, 



002716 
171370 
000372 
000012 
170532 
167024 

167040 

167030 



167020 



170466 
166760 



104004 
016700 
016105 
016334 
017025 
177777 
000000 
004767 
004767 
012767 
012767 
004767 
005767 
001007 
005367 
001412 
005367 
001365 
000403 
005367 
001356 
104007 
017747 
000750 
004767 
005767 
001004 
005367 
001370 
000764 
022767 
001416 
012767 
004567 
001362 
020011 
004567 
001400 
020024 
104007 
017764 
000715 
004767 
026727 
101407 
004567 
001400 
020103 
104007 
020031 



012767 000004 
005067 166620 



167062 ET0AI 

167056 ET0BI 

ET0CI 



000377 166740 ET0G: 



000377 
172400 



170400 
166672 



166662 ET0II 



TYPES 

1M20 

IM4S 

IM6 

IM23 

-1 

HALT 

JSR 

JSP 

MOV 

MOV 

JSR 

TST 

BNE 

DEC 

BEO 

DEC 

BNE 

BR 

DEC 

BNE 

ERRORl 

EM3 

BR 

JSR 

TST 

BNE 

DEC 

BNE 

BR 

CMP 

BEQ 

MOV 

JSR 

ERRT 

ESB 

JSR 

CRBUF 

EWAS 

ERRORl 

EM4 

BR 

JSR 

CMP 

BLOS 

JSR 

CRBUF 

FWAS 

ERRORl 

EMS 

BR 

MOV 

CLR 



%7,SWTL 

PC,RTMCAL 

»250,rCTRA 

#10,,CTRB 

%7, BREAD 

CRBUF 

ET0D 

CTRB 

ET0F 

CTRA 

ET0C 

ET0E 

CTRA 

ET0B 



ET0A 

%7, BREAD 

CRBUF 

ET0G 

CTRA 

ET0F 

ET0E 

#377, CRBUF 

ET0H 

t»377,ERRT 

%5,ACNV4 



ET0A 

%7, BREAD 
CRBUF, #3 
ET0I 
%5,ACNV4 



ET0A 
#4, CTRA 
ERRT 



jTYPE TITLE AND INSTRUCTIONS 



;CALIBRATE DELAY RTN WITH READER, 
J250 TO CTRA, (TOTAL CHAR COUNT), 

;READ CHAR 

IBRANCH IF NON-ZERO CHAR, 

}0 CHAR, DECREMENT CTRB 

;BRANCH XF 10 CONSECUTIVE 0'S READ, 

>N0, DECREMENT CTRA, 

JBRANCH IF NOT YgT 250 CHARS READ, 

}250 CHARS READ, SYNE ERROR, 

;DECREMENT CTRA 

IBRANCH IF NOT 250 CHARS READ YET, 

jSYNC ERROR, 250 CHARS READ WITHOUT 

jA SUCCESSFUL SYNC, 

jGO TRY AGAIN, 

fREAD CHAR 

{BRANCH IF NON-ZERO CHAP, 

{DECREMENT CTRA 

{BRANCH IF NOT 250 CHARS READ YET, 

J250 CHARS READ, SYNC ERROR, 

{COMPARE CHAR READ TO 377, 

{377, OK, 

{NOT 377, LEADER ERROR, SET UP FOR 

{ERROR TYPEOUT, 



{LEADER ERROR, SHOULD BE 377, 

{START OVER 

{READ CHAR, 

{COMPARE CHAR READ TO 3, 

{BRANCH IF SAME OR LOWER, 

{ERROR, CONVERT DATA READ TO ASCII, 

{SET UP FOR TYPEOUT, 

{LEADER ERROR, SHOULD BE BETWEEN 

{0 AND 3, 

{START OVER, 

{4 TO CTRA (CHAR COUNT) 

{CLEAR ERRT, EXPECTED CHAR IS 0, 
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3038 


012542 


004767 


170334 


ET0JI 


JSR 


%7, BREAD 


3039 


012546 


004767 


000050 




JSR 


%7,ECHK 


3040 


012552 


005367 


166642 




DEC 


CTRA 


3041 


012556 


001371 






BNE 


ET0J 


3042 


012560 


004767 


172070 




JSR 


%7,INBIN 


3043 


012564 


012767 


001000 166626 




MOV 


#5l2,iCTRA 


3044 


012572 


004767 


170304 


ET0KI 


JSR 


%7, BREAD 


3045 


012576 


004767 


172110 




JSR 


%7,GIBIN 


3046 


012602 


010067 


166554 




MOV 


%0,ERRT 


3047 


012606 


004767 


000010 




JSR 


%7,ECHK 


3048 


012612 


005367 


166602 




DEC 


CTRA 


3049 


012616 


001365 






BNE 


ET0K 


3050 


012620 


000643 






BR 


ET0A 


3051 


012622 


026767 


166552 166532 


ECHKl 


CMP 


crbuf»errt 


3052 


012630 


001412 






BEQ 


ECHKA 


3053 


012632 


004567 


172216 




JSR 


%5.ACNV4 


3054 


012636 


001362 






ERRT 




3055 


012640 


017655 






ASB 




3056 


012642 


004567 


172206 




JSR 


%5,ACNV4 


3057 


012646 


001400 






CRBUF 




3058 


012650 


017670 






AWAS 




3059 


012652 


104007 






ERRORl 




3060 


012654 


017632 






EMI 




3061 


012656 


000207 




ECHKAI 


RTS 


%7 



;REAO CHAR, 

|G0 CHECK CHAR READ, 

IDECREMENT CTRA 

JBRANCH IF NOT 4 CHARS READ YET, 

flNITIALIZE SPECIAL BINARY COUNT, 

JSET CHAR COUNT TO 512, 

;READ CHAR, 

jGET BIN CHAR AND STORE AT 

JERRTCHOLDS EXPECTED DATA), 

|G0 CHECK CHAR READ, 

IDECREMENT CHAR COUNT 

jBRANCH IF NOT 512 CHARS READ YET, 

jDONE, START OVER, 

JCOMPARE CHAR READ AGAINST EXPECTED CHAP, 

;BRANCH IF EQUAL, 

^CONVERT EXPECTED DATA TO ASCII, 



jCONVERT DATA READ TO ASCII, 



.) 



jEPROR, DATA ERROR, 
JEXIT 
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3062 








3063 








3064 








3065 








3066 








3067 


012660 


104004 




3068 


012662 


017252 




3069 


012664 


016334 




3070 


012666 


017025 




3071 


012670 


177777 




3072 


012672 


000000 




3073 


012674 


004767 


002342 


3074 


012700 


004767 


171264 


3075 


012704 


004767 


171744 


3076 


012710 


012767 


177600 171370 


3077 


012716 


005067 


000312 


3078 


012722 


005067 


000310 


3079 


012726 


104011 




3080 


012730 


013240 




3081 


012732 


104012 




3082 


012734 


012766 




3083 


012736 


004767 


167700 


3084 


012742 


004767 


172236 


3085 


012746 


004767 


172006 


3086 


012752 


010177 


166240 


3087 


012756 


052777 


000100 166230 


3088 


012764 


000777 




3089 


012766 


005777 


166222 


3090 


012772 


100004 




3091 


012774 


104003 




3092 


012776 


017456 




3093 


013000 


104010 




3094 


013002 


000771 




3095 


013004 


105777 


166204 


3096 


013010 


100402 




3097 


013012 


104007 




3098 


013014 


020161 




3099 


013016 


005267 


000212 


3100 


013022 


004767 


171732 


3101 


013026 


010177 


166164 


3102 


013032 


105767 


000200 


3103 


013036 


100414 




3104 


013040 


026727 


000170 000024 


3105 


013046 


103001 




3106 


013050 


000002 




3107 


013052 


052767 


000200 000156 


3108 


013060 


052777 


000101 166122 


3109 


013066 


000002 




3110 


013070 


026727 


000140 000050 



.SBTTL 
I «»»»»»««»«»»» 
IPRG5 - COMBIN 
I *#»##»»»»##»« 
^BINARY COUNT 
PRG5I TYPES 
IM26 
IM6 
IM23 
-1 

HALT 
JSR 
JSR 
JSR 
MOV 
CLR 
CLR 

STRDRV 
WNZERO 
STPCHV 
PBIN 
JSR 
JSP 
JSR 
MOV 
BIS 

PBINl TST 
BPL 
TYPE 
SM3 
CHALT 
BR 

PBNAl TSTB 
BMI 

ERRORl 
EMU 

PBNBI INC 
JSR 
MOV 
TSTB 
BMI 
CMP 
BHIS 
RTI 
BIS 
BIS 
RTI 

PBINAI CMP 



PRG5 THROUGH PRG13 

ED READER PUNCH TEST, USES SPECIAL 

PATTERN, 

jTYPE TITLE AND INSTRUCTIONS, 



%7,SWTL 

PC,PTMCAL 

%7,INBIN 

«177600,STLMSK 

PCHCNT 

RBUSY 



%7,ARRDy 

%7,CPRDY 

%7,GTBINp 

%1,»PPB 

«BIT6#9PPS 



eipps 

PBNA 



PBIN 

epps 

PBNB 



PCHCNT 

%7,GTBINP 

%l,9PPB 

RBUSY 

PBINA 

PCHCNT, #20, 

• ♦4 

#BIT7, RBUSY 
«101,@PRS 

PCHCNT, #40, 



jCALIBRATE DELAY RTN wITH PUNCH. 

flNITIALlEE BINARY COUNTS, 

JSET MAX, STALL DELAY, 

JCLEAR PUNCH COUNT 

;CLEAR READER bUSY INDICATOR 

jSET PTRI VECTOR, 

;SET PTPl VECTOR, 

ICHECK FOR READER READY 
;CHECK FOR PUNCH READY 
JGET BIN CHARACTER 
jPUNCH IT 
JENABLE PTPI 

jTEST FOR ERROR, 
;BRANCH IF NO ERROR, 
;TYPE punch NOT READY 
r MESSAGE, 

jRECHECK FOR ERROR, 

jCHECK FOR DONE, 

^BRANCH IF DONE SET, 

TERROR, FALSE PUNCH INTERRUPT, 

^INCREMENT PUNCH COUNT, 

jGET BINARY CHARACTER 

;ENABLE PUNCH 

jCHECK READER BUSY INDICATOR 

^BRANCH IF READER BUSY 

|NOT BUSY, PUNCH COUNT 20 YET? 

jBRANCH IF PCHNT 20 OR MORE, 

JNOT 20 YET, EXIT INTERRUPT 

;SET READER BUSY 

;ENABLE PTRI AND READER, 

JEXIT INTERRUPT, 

?PUNCH COUNT LARGER THAN 40? 
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3in 


013076 


101402 






3112 


013100 


005077 


166110 




3113 


013104 


000002 






3114 


013106 


005777 


166076 




3113 


013112 


100003 






3116 


013114 


004767 


167S76 




3117 


013120 


000772 






3118 


013122 


105777 


166062 




3119 


013126 


100402 






3120 


013130 


104007 






3121 


013132 


020140 






3122 


013134 


017767 


166052 


166236 


3123 


013142 


005367 


000066 




3124 


013146 


026727 


000062 


000037 


312S 


013154 


101024 






3126 


013156 


032777 


000100 


166030 


3127 


013164 


001003 






3128 


013166 


052777 


000100 


166020 


3129 


013174 


005767 


000034 




3130 


013200 


001006 






3131 


013202 


042767 


000200 


000026 


3132 


013210 


005077 


165774 




3133 


013214 


000207 






3134 


013216 


005767 


000014 




3135 


013222 


100401 






3136 


013224 


104005 






3137 


013226 


005277 


165756 




3138 


013232 


000207 






3139 


013234 


000000 






3140 


013236 


000000 






3141 


013240 


004767 


177642 




3142 


013244 


005767 


166130 




3143 


013250 


001001 






3144 


013252 


000002 






3145 


013254 


012777 


013272 


165736 


3146 


013262 


012767 


000003 


166126 


3147 


013270 


000402 






3148 


013272 


004767 


177610 




3149 


013276 


004767 


171410 




3150 


013302 


020067 


166072 




3151 


013306 


001001 






3152 


013310 


000002 






3153 


013312 


010067 


166044 




3154 


013316 


004567 


171532 




3155 


013322 


001362 






3156 


013324 


017655 






3157 


013326 


004567 


171522 




3158 


013332 


001400 






3159 


013334 


017670 






3160 


013336 


104007 






3161 


013340 


017632 






3162 


013342 


005367 


166050 




3163 


013346 


001001 






3164 


013350 


000002 






3165 


013352 


052767 


100000 


177656 


3166 


013360 


012777 


013402 


165632 



PBZNBl 
CREADi 



CREAOAi 



CPEADBi 



PCHCNTi 

RBUSYl 

WNZEROI 



RBINi 
RBINAl 



BLOS 

CLR 

RTI 

TST 

BPL 

JSR 

BR 

T5TB 

BMI 

ERRORl 

EM10 

MOV 

DEC 

CMP 

BHI 

BIT 

BNE 

BIS 

TST 

BNE 

BIC 

CLR 

RTS 

TST 

BMI 

STALL 

INC 

RTS 

OPEN 

OPEN 

JSR 

TST 

BNE 

RTI 

MOV 

MOV 

BR 

JSR 

JSR 

CMP 

BNE 

RTI 

MOV 

JSR 

ERRT 

ASB 

JSR 

CRBUF 

AWAS 

ERRORl 

EMI 

DEC 

BNE 

RTI 

BIS 

MOV 



PBINB 
@PPS 

@PRS 

CRDA 

%7,TSM2 

CREAD 

@PRS 

CRDAA 



9PRB, CRBUF 

PCHCNT 

PCHCNT,#31g 

CREADC 

»BIT6,fPPS 

CREADA 

#8IT6,gppS 

PCHCNT 

CREADB 

#BIT7,RBUSY 

9PRS 

%7 

RBUSY 

CREADC 

»PRS 
%7 



%7, CREAD 

CRBUF 

.♦4 

t>RBIN,§RDRVTP 

#3#ERCTR 

RBINA 

%7, CREAD 

%7,GTBIN 

%0, CRBUF 

PBINB 

%0»ERRT 
%5,ACNV4 



ERCTR 
RBINC 



«BIT15,RBUSV 
#RBIND»9R0RVTR 



;BRANCH IF NOT LARGER 
(LARGER, DISABLE PTPZ 
lEXlT INTERRUPT, 
ICHECK FOR ERROR, 
IBRANCH IF NO ERROR. 
TERROR, TYPE MESSAGE, 

ITEST FOR DONE, 

jBRANCH IF DONE SET, 

»ERROR, FALSE READER INTERRUPT, 

jCHARACTER READ TO CRBUF 



JPUNCH COUNT GREATER THAN 31? 

JNO, 

»PTPI ENABLED? 

JNO, ENABLE PTPI, 

;PUNCH COUNT 0? 

(YES, CLEAR READER BUSY, 

(DISABLE PTRI, 

(EXIT, 

(TEST BUSY INDICATOR 

(STALL? 

(YES, 

(ENABLE READER 

(EXIT, 



(READ CHARACTER 

(CHECK CHARACTER 

(BRANCH IF NON-ZERO CHAR, 

(ZERO, EXIT INTERRUPT, 

(SET READER VECTOR TO READ BINARY 

(COUNT, SET ERROR COUNTER TO 3, 

(READ CHARACTER, 

(GET BINARY CHARACTER 

(COMPARE AGAINST ChAR READ, 

(BRANCH IF NOT SAME, 

(SAME EXIT INTERRUPT, 

(MOVE EXPECTED CHAR TO ERRT 

(CONVERT EXPECTED CHAR TO ASCII 



(CONVERT RECEIVED CHAR TO ASCII 



(ERROR MESSAGE, DATA ERROR, 

(3RD ERROR? 

(YES, 

(NO, EXIT INTERRUPT, 

(DISABLE STALLS, 

(SET PTR VECTOR TO RBIND, 
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3167 


013366 


012767 


000003 


166022 




MOV 


#3»ERCTR 


(USE ERCTR AS CHARACTER COUNTER, 


3168 


013374 


012700 


001402 






MOV 


iCHRl,%0 


(ADDR OF CHRl TO %0 


3169 


013400 


000002 








RTI 




(EXIT INTERRUPT 


3170 


013402 


004767 


177500 




RBINDI 


JSR 


%7, CREAD 


(READ CHARACTER 


3171 


013406 


016720 


165766 






HOV 


CRBUF, (0)+ 


(STORE CHARACTER STARTING AT CHRl 


3172 


013412 


005367 


166000 






DEC 


ERCTR 


(3RD CHARACTER? 


3173 


013416 


001401 








BEQ 


.^4 


(YES, 


3174 


013420 


000002 








RTI 




(EXIT INTERRUPT, NOT 3RD YET, 


3175 


013422 


004767 


171114 






JSP 


%7,SYNCA 


(GO SYNC THE READER, 


3176 


013426 


000751 








BR 


RBINC 


(NO SYNC, TRY AGAIN, 


3177 


013430 


012777 


013272 


165562 




MOV 


«RBIN,gRDRVTR 


(SYNCED, SET READER VECTOR TO RBIN, 


3178 


013436 


012767 


000003 


165752 




MOV 


#3, ERCTR 


(SET ERROR COUNT TO 3, 


3179 


013444 


042767 


100000 


177564 




BIC 


l«8IT15,RBUSY 


(ENABLE STALLS, 


3180 
3181 
3182 


013452 


000002 








RTI 




(EXIT INTERRUPT, 


















3183 










(««»««»««»»«»»#«»»««»»««»«»«»«»«»»«»«««#»»»»«»»«»»»««««»««««««»««»««»«»«« 


3184 










(PRG6 - PUNCHES 


CONTINUOUSLY 


3N PTP THE 2 CHARACTERS SELECTED 


3185 










(«»#»tf«»»»*««»»»»»»tt«»««»««#»«»tf»tf»»«««»«»»»»««»««»»«««»4»«««««»»««»«««««« 


3186 


013454 


104004 






PRG6I 


TYPES 




(TYPE TITLE AND INSTRUCTIONS. 


3187 


013456 


017003 








IM21 






3188 


013460 


016620 








IM16 






3189 


013462 


177777 








-1 






3190 


013464 


012767 


000004 


165700 


iSi 


MOV 


»4, COUNT 




3191 


013472 


012767 


020425 


001224 




MOV 


»SCH1,TLX 




3192 


013500 


104014 








OPTSEL 






3193 


013502 


022767 


000004 


165662 




CMP 


#4, COUNT 




3194 


013510 


001765 








BEQ 


1$ 




3195 


013512 


116767 


165646 


000064 




MOVB 


TMP1,PUNC1 




3196 


013520 


012767 


000004 


165644 


2$1 


MOV 


#4, COUNT 




3197 


013526 


012767 


020463 


001170 




MOV 


#$CH2»TLX 




3198 


013534 


104014 








OPTSEL 






3199 


013536 


022767 


000004 


165626 




CMP 


#4, COUNT 




3200 


013544 


001765 








BEQ 


28 




3201 


013546 


116767 


165612 


000031 




MOVB 


TMpi,PUNCltl 




3202 


013554 


104003 








TYPE 






3203 


013556 


017025 








IM23 






3204 


013560 


000000 








HALT 






3205 


013562 


116700 


000016 




PRG6AI 


MOVB 


PUNCI,%0 


(PUNCH FIRST CHARACTER, 


3206 


013566 


004767 


171444 






JSR 


|7,HSPCH 




3207 


013572 


116700 


000007 






MOVB 


PUNCl+1,%0 


(PUNCH SECOND CHARACTER, 


3208 


013576 


004767 


171434 






JSR 


%7,H8PCH 




3209 


013602 


000767 








BR 


PRC6A 


(REPEAT, 


3210 


013604 


000000 






PUNCH, 


WORD 






3211 










(«««»»««»#ft««»»««««#«»«««»«#««»««»»««««»»#»»#«»#«»»«««ll««4l{(««««4(f^4»4»«^«#«« 


3212 










(PRG7 . 


. READS AND CHECKS TAPE 


PUNCHED WITH 2 CHARACTERS SELECTED 


3213 










(«»«»»««»»«»««»»«»tf««»«*#»»»»«4»»»«»«#«#»«»ff ««»»»»»#»#««»#«««««»«««#«#«#»# 


3214 


013606 


104003 






PRG7I 


TYPE 






3215 


013610 


017014 








IM22 






3216 


013612 


012767 


000004 


165552 


2$l 


MOV 


»4, COUNT 




3217 


013620 


012767 


020617 


001076 




MOV 


»$RD1#TLX 




3218 


013626 


104014 








OPTSEL 






3219 


013630 


022767 


000004 


165534 




CMP 


94, COUNT 




3220 


013636 


001765 








BEQ 


2S 




3221 


013640 


016767 


165520 


165556 




MOV 


TMP1,CTRC 




3222 


013646 


012767 


000004 


16SS16 


ISl 


HOV 


84, COUNT 
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3223 
3224 
322S 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 



0136S4 
013662 
013664 
013672 
013674 
013702 
013704 
013706 
013710 
013712 
013714 
013720 
013724 
013732 
013736 
013744 
013752 
013754 
013762 
013764 
013770 
013776 
014002 
014006 
014010 
014016 
014020 
014024 
014026 
014030 
014034 
014036 
014040 
014042 
014044 
014050 
014052 
014054 
014062 
014064 
014072 
014074 
014102 
014104 
014112 
014114 
014120 
014122 
014124 
014126 
014130 
014132 



012767 
104014 
022767 
001765 
016767 
104004 
016334 
017025 
177777 



004767 
004767 
016767 
004767 
016767 
026767 
001040 
026767 
001061 
005067 
012767 
004767 
005167 
001436 
026767 
001767 
004567 
001424 
017655 
004567 
001400 
017670 
104007 
017632 
005367 
001723 
000751 
026767 
001021 
026767 
001015 
012767 
000732 
026767 
001731 
004567 
001426 
017655 
000741 
104007 
020110 
000672 



0206S4 001042 
000004 165500 
165464 165524 



001322 

167156 

16S450 165450 

167144 

165436 165440 

165432 165452 

165424 165444 

165432 

000003 165420 

167100 

165414 

165364 165406 

171030 

171020 

165346 

165322 165344 

165314 165332 

177777 165320 

165270 165314 
170734 



HT0B{ 
HT0CI 



014134 005067 165226 



;PRG10 

PPG10! 



MOV 

OPTSEL 

CMP 

BEQ 

MOV 

TYPES 

IM6 

IM23 

-1 

HALT 

JSR 

JSR 

MOV 

JSR 

MOV 

CMP 

BNE 

CMP 

BNE 

CLP 

MOV 

JSR 

COM 

BEQ 

CMP 

BEQ 

JSR 

CTRC 

ASB 

JSR 

CRBUF 

AWAS 

ERROBl 

EMI 

DEC 

BEQ 

BH 

CMP 

BNE 

CMP 

BNE 

MOV 

BR 

CMP 

BEQ 

JSR 

CTRD 

ASB 

BR 

EHROPl 

EM6 

BR 

READ 

CLP 



#8RD2fTLX 

#4, COUNT 

1$ 

TMPI,CTRD 



%7,SWTL 

%7, BREAD 

CRBUF, CHRl 

%7, BREAD 

CRbUF#CHR2 

CHRl, CTRC 

HT0E 

CHR2,CTRD 

HT0G 

CTRB 

#3,ErCTR 

%7, BREAD 

CTRB 

HT0F 

CRBUF, CTRC 

HT0C 

%5,ACNV4 



%5,ACNV4 



ERCTR 

HT0A 

HT0C 

CHRl, CTRD 

HT0G 

CHR2,CTRC 

HT0G 

#-l,CTRB 

HT0B 

CRBUF, CTRD 

HT0C 

%5,ACNV4 



) 



I MATCH CHARS ON jApE AGAINST EXPECTED CHARS, 

;READ CHAR INTO CHRl 

;READ char 

fINTO CHR2 

J(CHR1)s(CTRC)7 

J NO, 

?YES, (CHR2)=CCTRD)? 

;N0. MATCH ERROR, 

jYES, NEXT CHAR SHOULD a (CTRC) (CTRBa0) 

;3 TO ERROR COUNTER, 

;READ CHAR 

{COMPLEMENT CHAR INDICATOR 

jBRANCH IF EXPECTED CHAR SHOULD a (CTRD) 

? (CRBUF) s (CTRC)? 

?YES, 

jNO, (CTRC) TO ASB IN ASCII FORM, 



> (CRBUF) TO AwAS IN ASCII FORM, 



jEBROP 1 CALL. TYPE DATA ERROR MESSAGE, 

;3 ERRORS? 

I YES, START ALL OVER, 

?N0, CONTINUE READING, 

;(CHRl) = (CTRD)? 

;N0, MATCH ERROR, 

lYES, (CHR2) = (CTRC)? 

>N0, MATCH ERROR, 

I YES, NEXT CHAR SHOULD s (CTRD) 

fGO START READING, 

;(CReUF) a (CTRD)? 

jYES, OK. CONTINUE READING, 

jNO, (CTRD) TO AsB IN ASCII FORM, 



HT0D yGO GENERATE ERROR MESSAGE, 

jMATCH ERROR. UNABLE TO MATCH UP 

f2 CONSECUTIVE CHARACTERS FROM READER 

HT0A ;T0 CHARACTERS READ FROM SR, 

X CHARACTERS, STALL Y MILLISECONDS, 
TMP2 
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3279 


014140 


104003 






3280 


014142 


016643 






3281 


014144 


012767 


000004 


165220 


3282 


014152 


012767 


020375 


000544 


3283 


014160 


104014 






3284 


014162 


022767 


000004 


165202 


3285 


014170 


001765 






3286 


014172 


116767 


165166 


165166 


3287 


014200 


012767 


000004 


165164 


3268 


014206 


012767 


020357 


000510 


3289 


014214 


104014 






3290 


014216 


022767 


000004 


165146 


3291 


014224 


001765 






3292 


014226 


116767 


165132 


165133 


3293 


014234 


104003 






3294 


014236 


017025 






3295 


014240 


000000 






3296 


014242 


004767 


167452 




3297 


014246 


005067 


000042 




3298 


014252 


005067 


000042 




3299 


014256 


116767 


165105 


000030 


3300 


014264 


116767 


165076 


000026 


3301 


014272 


004767 


166364 




3302 


014276 


105367 


000016 




3303 


014302 


001373 






3304 


014304 


005767 


000004 




3305 


014310 


001756 






3306 


014312 


104000 






3307 


014314 


000000 






3308 


014316 


000753 






3309 


014320 


000000 






3310 










3311 










3312 










3313 


014322 


104004 






3314 


014324 


015653 






3315 


014326 


016620 






3316 


014330 


017025 






3317 


014332 


177777 






3318 


014334 


000000 






3319 


014336 


012746 


000024 




3320 


014342 


005000 






3321 


014344 


004767 


170666 




3322 


014350 


005316 






3323 


014352 


001374 






3324 


014354 


004767 


170274 




3325 


014360 


004767 


170326 




3326 


014364 


004767 


170646 




3327 


014370 


000773 






3328 










3329 










3330 










3331 


014372 


012767 


000004 


164772 


3332 


014400 


012767 


020340 


000316 


3333 


014406 


104014 






3334 


014410 


104003 







TYPE 

IM17 

MOV 

MOV 

OPTSEL 

CMP 

BEQ 

Move 

MOV 

MOV 

OPTSEL 

CMP 

BEQ 

MOVB 

TYPE 

IM23 

HALT 

JSR 

CLR 

CLR 

MOVB 

MOVB 

JSH 

DECB 

BNE 

TST 

BEQ 

DELAY 

OPEN 

BR 

OPEN 



»4, COUNT 
#SNUMCR,TLX 

#4, COUNT 
1$ 

TMP1,TMP2 
#4, COUNT 
#SSTALL,TLX 

H, COUNT 

2S 

TMP1,TMP2+1 



PCRTMCAL 

ITY 

ITX 

TMP2+1,ITY 

TMP2,ITX 

%7,AREAD 

ITX 

ITB 

ITY 

ITA 



{CALIBRATE DELAY RTN WITH READER, 



|MOVE STALL COUNT TO ITY, 
JMOVE CHAR COUNT TO ITX, 
jFETCH CHARACTER, 
{DECREMENT CHAR COUNT, 
JBRANCH IF COUNT NOT 0, 
{DELAY COUNT = 0? 
{BR IF YES, 

{READ CHARS, STALL NOW, 
{STALL COUNT IN MSECS, 
{REPEAT 



{PRGll, PUNCH SPECIAL BINARY COUNT PATTERN TEST TApE 



PRGll I TYPES 
IM0C 
IM16 
IM23 
•1 

HALT 
MOV 
CLR 

PRGllAl JSR 



»»»«# 
««"»«« 



(6) 



PRGllBi 



DEC 
BNE 
JSP 
JSR 
JSR 
BR 



»20 

%0 

%7,HSPCH 

e%6 

PRGllA 

%7,INBIN 

%7,GTBIN 

%7,HSPCH 

PRGUB 



{TYPE TITLE AND INSTRUCTIONS, 



{WAIT FOR USER 
{PUNCH 20 BLANK CHAR, 



{INITIALIZE SPECIAL BINARY COUNT 
{GET BINARY CHARACTER, 
{PUNCH CHARACTER 
{REPEAT, 

{«««»»»#«#«»»»»»«##«»««*«»«»«»««»««»«««»»«»»»»*»»««««#«««#««»«««««««« 
{PRG12 - READER SPEED PRINT LOOP 

I «»«««#«»«»«««#««»#««*»»«««««»««#»«««»«»»#««»«»«««»«.»«#««««»»«##»«««« 
PRG12I MOV #4, COUNT 

MOV #$TIME,TLX 

OPTSEL 

TYPE 
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SRC 
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3335 


014412 


020521 








SSKEY 




3336 


014414 


000000 








HALT 




3337 


014416 


005067 


165002 




KTA! 


CLR 


CTRC 


3338 


014422 


005067 


164774 






CLR 


CTRB 


3339 


014426 


005077 


164600 






CLR 


@TKB 


3340 


014432 


032767 


000200 


164724 




BIT 


#BIT7,TMP1 


3341 


014440 


001403 








BEQ 


KTB 


3342 


014442 


012767 


000416 


164754 




MOV 


#270,»CTRC 


3343 


014450 


062767 


000036 


164746 


KTBJ 


ADD 


#30,, CTRC 


3344 


014456 


000407 








BR 


KTD 


3345 


014460 


004767 


166176 




KTCI 


JSR 


%7,AREAD 


3346 


014464 


005367 


164730 






DEC 


CTRA 


3347 


014470 


001005 








BNE 


KTE 


3348 


014472 


005267 


164724 






INC 


CTRB 


3349 


014476 


016767 


164722 


164714 


KTDt 


MOV 


CTRC, CTRA 


3350 


014'^ -'4 


105777 


164520 




KTEl 


TSTB 


iTKS 


3351 


i % J 1 


100363 








BPL 


KTC 


3352 


014512 


004567 


000100 




KTFl 


JSR 


%5,CPKPL 


3353 


014516 


017501 








SM4 




3354. 


014520 


000000 








HALT 




3355 


014522 


000723 








BR 


PRG12 


3356 










J *»«#»»»##»»»»»#»»#»»»»»««»»»»». 


3357 










IPRG13 


- PUNCH 


SPEED PRINT LOOP 


3358 










»#*»»«»»»»##»#«*»»»»»*«*»»»»»»». 


3359 


014524 


104004 






PRGUt 


TYPES 




3360 


014526 


017221 








IM25 




3361 


014530 


016620 








IM16 




3362 


014532 


020521 








SSKEY 




3363 


014534 


177777 








-1 




3364 


014536 


000000 








HALT 




3365 


014540 


005067 


164656 




LTAI 


CLR 


CTRH 


3366 


014544 


005000 








CLR 


%0 


3367 


014546 


005077 


164460 






CLR 


0TKB 


3368 


014552 


000407 








BR 


LTC 


3369 


014554 


004767 


170456 




LTBS 


JSR 


%7,HSPCH 


3370 


014560 


005367 


164634 






DEC 


CTRA 


3371 


014564 


001005 








BNE 


LTD 


3372 


014566 


005267 


164630 






INC 


CTRB 


3373 


014572 


012767 


000074 


164620 


LTCl 


MOV 


#60,, CTRA 


3374 


014600 


105777 


164424 




LTD! 


TSTB 


iTKS 


3375 


014604 


100363 








RPL 


LTB 


3376 


014606 


004567 


000004 




LIE! 


JSR 


%5,CPKPL 


3377 


014612 


017523 








SMS 




3378 


014614 


000750 








BR 


LTA-2 


3379 


014616 


012567 


000022 




CPKPL: 


MOV 


(5)*, CPKPLA 


3380 


014622 


004567 


170430 






JSR 


%5,bDCNV 


3381 


014626 


001422 








CTRB 




3382 


014630 


004567 


170332 






JSR 


%5,BM0VE 


3383 


014634 


015260 








DECVAL^2 


3384 


014636 


017544 








ACPS 




3385 


014640 


000003 








3 




3386 


014642 


104004 








TYPES 




3387 


014644 


000000 






CPKPLA: 


OPEN 




3388 


014646 


017544 








ACPS 




3389 


014650 


177777 








-1 




3390 


014652 


300205 








PTS 


%5 



;CLEAR WORK REGISTERS 



?300 SECOND TIMING IS DESIRED 
jSET UP FOR DESIRED TIME BASE, 



JREAD CHARACTER, 
^DECREMENT CTRA 
;BRANCH IF CTRA NOT 0, 
|CTPA0,+1 TO CTRB. 
JRELOAO CTRA, 

JNO, 

;G0 TYPE OUT DEVICE SPEED, 



;TYPE TITLE AND INSTRUCTIONS, 



jHALT, WAIT FOR USER, 
JCLEAR WORK AREAS. 



;PUNCH A 

jDECREMENT CTRA 

;BRANCH IF CTRA NOT 

f INCREMENT CTRB. 

jMOVE 60 TO CTRA 

JTIME UP? 

?N0, 

;G0 TYPE OUT DEVICE SPEED. 

;G0 HALT AND READY UP FOR NEXT TIME. 
jMOVE ADDR OF 1ST MESSAGE TO CPKPLA, 
JCONVERT (CTRB) TO DECIMAL ASCII, 

•MOVE 3 DECIMAL CHARS TO PRINTOUT AREA. 



;TYPE DEVICE SPEED, 



JEXIT, 
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3391 
















3392 
















3393 


014654 


005077 


164350 




TTINj 


CLR 


PTKS 


3394 


014660 


005077 


164346 






CLR 


9TKB 


3395 


014664 


005067 


164504 






CLR 


TIB 


3396 


014670 


105777 


164334 




ISl 


TSTB 


9TKS 


3397 


014674 


100375 








BPL 


IS 


3398 


014676 


017767 


164330 


164470 




MOV 


PTKB,TIB 


3399 


014704 


105777 


164324 




2S! 


TSTB 


&TPS 


3400 


014710 


100375 








BPL 


2$ 


3401 


014712 


116777 


164456 


164316 




MOVB 


TIB.iaTPB 


3402 


014720 


000002 








RTI 




3403 
















3404 
















3405 


014722 


104003 






OPTS! 


TYPE 




3406 


014724 


000000 






TLX! 


OPEN 




3407 


014726 


005067 


164432 






CLR 


TMPI 


3408 


014732 


104016 






1$! 


TTYIN 




3409 


014734 


104017 








VALID 




3410 


014736 


000775 








BR 


IS 


3411 
















3412 
















3413 


014740 


042767 


177600 


164426 


VALINPi 


BIC 


#177600, Til 


3414 


014746 


122767 


000007 


164420 




CMPB 


#7, TIB 


3415 


014754 


001002 








BNE 


US 


3416 


014756 


104015 








CNTL 




3417 


014760 


000404 








BR 


6$ 


3418 


014762 


122767 


000025 


164404 


US! 


CMPB 


#25, TIB 


3419 


014770 


001004 








BNE 


IS 


3420 


014772 


022626 






6SI 


P0PSP2 




3421 


014774 


162716 


000016 






SUB 


#16, (SP) 


3422 


015000 


000002 








RTI 




3423 


015002 


122767 


000015 


164^64 


IS! 


CMPB 


#15, TIB 


3424 


015010 


001004 








BNE 


4S 


3425 


015012 


104003 








TYPE 




3426 


015014 


020230 








SCRLF 




3427 


015016 


022626 






9SI 


P0PSP2 




3428 


015020 


000002 








RTI 




3429 


015022 


122767 


000012 


164344 


4$! 


CMPB 


#12»TIB 


3430 


015030 


001410 








BEQ 


5S 


3431 


015032 


122767 


000060 


164334 


2$i 


CMPB 


#60, TIB 


3432 


015040 


003004 








BGT 


5S 


3433 


015042 


122767 


000067 


164324 




CMPB 


#67, TIB 


3434 


015050 


002003 








BGE 


7S 


3435 


015052 


104003 






5SI 


TYPE 




3436 


015054 


020232 








SQUEST 




3437 


015056 


000745 








BR 


6S 


3438 


015060 


006367 


164300 




7S1 


ASL 


TMPI 


3439 


015064 


006367 


164274 






ASL 


TMpl 


3440 


015070 


006367 


164270 






ASL 


TMPI 


3441 


015074 


042767 


177770 


164272 




BIC 


#177770, Til 


3442 


015102 


056767 


164266 


164254 




BIS 


TIB#TMP1 


3443 


015110 


005367 


164256 






DEC 


COUNT 


3444 


015114 


001756 








BEQ 


5S 


3445 


015116 


000002 








RTI 




3446 
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3447 
















3448 


015120 


105777 


164104 




CKSWRRi 


TSTB 


ITKS 


3449 


015124 


10004S 








BPL 


OUT 


3450 


015126 


017767 


164100 


164240 




MOV 


gTKB,TIB 


3451 


015134 


042767 


177600 


164232 




BIC 


#177600, TIB 


3452 


015142 


022767 


000007 


164224 




CMP 


#7, TIB 


3453 


015150 


001033 








BNE 


OUT 


3454 


015152 


104003 








TYPE 




3455 


015154 


020223 








SCTLG 




3456 


015156 


017767 


164022 


164200 


CNTLUI 


MOV 


&SWR,TMP1 


3457 


015164 


004567 


167636 






JSR 


%5,ACNV6 


3458 


015170 


001364 








TMPl 




3459 


015172 


020236 








SVALUE 




3460 


015174 


104004 








TYPES 




3461 


015176 


020304 








tSWREQ 




3462 


015200 


020236 








SVALUE 




3463 


015202 


177777 








-1 




3464 


015204 


012767 


020273 


177512 




MOV 


»$NEW,TLX 


3465 


015212 


012767 


000007 


164152 




MOV 


#7, COUNT 


3466 


015220 


104014 








OPTSEL 




3467 


015222 


022767 


000007 


164142 




CMP 


#7, COUNT 


3468 


015230 


001403 








BEO 


OUT 


3469 


015232 


016777 


164126 


163744 




MOV 


TMPI,9SWR 


3470 


015240 


000002 






OUTI 


PTI 




3471 
















3472 
















3473 


015242 


104004 






SWTLl 


TYPES 




3474 


015244 


015363 








CM4 




3475 


015246 


015453 








CM4B 




3476 


015250 


177777 








-1 




3477 


015252 


104015 








CNTL 




3478 


015254 


000207 








RTS 


%7 


3479 

















) 
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3480 










3481 


015256 


020040 


020040 


040 


3482 


015263 


007 






3483 


015264 


025045 


100 




3484 


015267 


045 


044443 


041516 


3485 


015274 


051117 


R42522 


052103 


3486 


015302 


050040 


047522 


051107 


3487 


015310 


046501 


051440 


046105 


3488 


015316 


041505 


042524 


027104 


3489 


015324 


100 






3490 


015325 


045 


044443 


041516 


3491 


015332 


051117 


042522 


052103 


3492 


015340 


051040 


052517 


044524 


3493 


015346 


042516 


051440 


046105 


3494 


015354 


041505 


042524 


027104 


3495 


015362 


100 






3496 


015363 


045 


051443 


046105 


3497 


015370 


041505 


020124 


042504 


3498 


015376 


044523 


042522 


020104 


3499 


015404 


051123 


047440 


052120 


3500 


015412 


0475U 


051516 


056 


3501 


015417 


045 


047516 


046522 


3502 


015424 


046101 


047440 


042520 


3503 


015432 


040522 


044524 


047117 


3504 


015440 


044440 


020123 


044527 


3505 


015446 


044124 


040040 


040 


3506 


015453 


123 


051127 


030075 


3507 


015460 


030060 


030060 


020060 


3508 


015466 


100 






3509 


015467 


045 


037443 


046440 


3510 


015474 


047101 


040525 


020114 


3511 


015502 


047522 


052125 


047111 


3512 


015510 


027105 


041040 


052111 


3513 


015516 


020070 


051450 


051127 


3514 


015524 


043505 


020051 


051511 


3515 


015532 


051440 


052105 


040056 


3516 


015540 


021445 


051120 


030107 


3517 


015546 


020056 


042522 


042101 


3518 


015554 


051105 


046040 


043517 


3519 


015562 


041511 


052040 


051505 


3520 


015570 


051524 


040056 




3521 


015574 


021445 


051120 


031107 


3522 


015602 


020056 


052520 


041516 


3523 


015610 


020110 


047514 


044507 


3524 


015616 


020103 


042524 


052123 


3525 


015624 


027123 


100 




3526 


015627 


045 


050043 


043522 


3527 


015634 


027063 


050040 


047125 


3528 


015642 


044103 


052040 


051505 


3529 


0156S0 


027124 


100 




3530 


015653 


045 


050043 


043522 


3531 


015660 


030461 


020056 


047503 


3532 


015666 


047125 


020124 


040520 


3533 


013674 


052124 


051105 


020116 


3534 


015702 


040524 


042520 


043440 


3535 


01S710 


047105 


051105 


052101 



18-MAP-76 09:44 PAGE 72 



.SBTTL 

DECVALI .ASCII ' 

APGENDl .BYTE 7 

.ASCII '%»§' 

CM2; .ASCII '%»INCORRECT PROGRAM SELECTED, a' 



CM3| .ASCII 'tftlNCORRECT ROUTINE SELECTED, 9* 

CM4I .ASCII '%«SELECT DESIRED SR OPTIONS,' 

.ASCII •%NORMAL OPERATION IS WITH P ' 

CM4BI .ASCII 'SWRa000000 $' 

CM5I .ASCII '%»? MANUAL ROUTINE, BITS (SWPEG) IS SET. 3' 

IM0I .ASCII •%#PRG0. READER LOGIC TESTS. 0' 

IM0AI .ASCII •%#PRG2, PUNCH LOGIC TESTS, 9' 

IM0BI .ASCII '%#PRG3, PUNCH TEST.f 

1M0C| .ASCII '%»PRGll. COUNT PATTERN TAPE GENERATOR,?' 



PCil READEP-PUNCH TESfS MACYU 27(732) 
DEPCAE.SRC 



|8»HAR»76 09144 PAGE 73 





015716 


051117 


040056 






015722 


051445 


052105 


052440 




015730 


020120 


042522 


042101 




015736 


051105 


040440 


020123 




015744 


047506 


046U4 


053517 




015752 


035123 


040040 






015756 


047520 


042527 


020122 




015764 


043117 


026106 


047440 




015772 


043106 


046055 


047111 




016000 


026105 


047040 


020117 




016006 


040524 


042520 


040056 




016014 


047520 


042527 


020122 




016022 


047U7 


020054 


043117 




016030 


026506 


044514 


042516 




016036 


020054 


047516 


052040 




016044 


050101 


027105 


100 




016051 


120 


053517 


051105 




016056 


047440 


026116 


047440 




016064 


026516 


044514 


042516 




016072 


020054 


047516 


052040 




016100 


050101 


027105 


100 




016105 


045 


046120 


041501 




016112 


020105 


051120 


031507 




016120 


047440 


052125 


052520 




016126 


020124 


040524 


042520 




016134 


044440 


020116 


042522 




016142 


042101 


051105 


020056 




016150 


044506 


051522 


020124 




016156 


052522 


047502 


052125 




016164 


040 








016165 


123 


047510 


046125 




016172 


020104 


042502 


040440 




016200 


047502 


052125 


031440 




016206 


044440 


041516 


042510 




016214 


123 








016215 


045 


051106 


046517 




016222 


051040 


043511 


052110 




016230 


042440 


043504 


020105 




016236 


043117 


051040 


040505 




016244 


042504 


020122 


051120 




016252 


051505 


052523 


042522 




016260 


050040 


040514 


042524 


3578 


016266 


022456 


100 




3579 


016271 


120 


053517 


051105 


3580 


016276 


047440 


026116 


047440 


3581 


016304 


026516 


044514 


042516 


3582 


016312 


020054 


040524 


042520 


3583 


016320 


044440 


020116 


042522 


3564 


016326 


042101 


051105 


040056 


3585 


016334 


046445 


045501 


020105 


3586 


016342 


042522 


042101 


051105 


3587 


016350 


051040 


040505 


054504 


3588 


016356 


040056 






3589 


016360 


021445 


051120 


030507 


3590 


016366 


020056 


042522 


042101 


3591 


016374 


051105 


052040 


051505 



IMlt .ASCII '%5ET UP READER AS fOLLOWSl 9' 



IM2I eASCII 'POWER OrF# OFF-LINE, NO TAPE.S* 



IM3I (ASCII 'POWER ONf OFF-LINE, NO TAPE. 9' 



IM4| , ASCII 'POWER ON, ON«LINE, NO TAPE,?' 



IM4SI .ASCII 'IPLACE PRG3 OUTPUT TAPE IN HEADER, FIRST RUSOUT 



.ASCII 'SHOULD BE ABOUT 3 INCHES' 



.ASCII '%FROM RIGHT EDGE OF READER PRESSURE PLATE, %f' 



IM5I .ASCII 'POWER ON, ON-LINE, TAPE IN READER, #» 



IM6I .ASCII '%MAKE READER READY, 9' 



IM7I .ASCII '%«PRGl, READER TEST,«B' 
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3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 



016402 

016405 

016412 

016420 

016426 

016434 

016442 

016450 

016456 

016464 

016467 

016474 

016502 

016510 

016513 

016520 

016526 

016534 

016536 

016544 

016552 

016560 

016566 

016567 

016574 

016602 

016610 

016616 

016620 

016626 

016634 

016642 

016643 

016650 

016656 

016664 

016672 

016700 

016706 

016714 

016722 

016730 

016732 

016740 

016746 

016754 

016762 

016770 

016772 

017000 

017003 

017010 

017014 

017022 

017025 

017032 



027124 
045 
051040 
020122 
044514 
051445 
020120 
020110 
046117 
020072 
120 
047440 
047516 
027105 
120 
047440 
020U7 
040056 
047520 
047117 
042520 
052520 
100 
045 
042526 
020105 
050040 
040056 
046445 
052520 
042522 

100 

045 
030061 
040505 
051440 
054440 
021445 
020056 
020110 
054506 
027124 
046045 
042522 
053440 
040524 
047522 
020104 
054502 
027063 

045 
022466 
021445 
021445 

045 
020123 



100 
052524 
040505 
043117 
042516 
052105 
052520 
051501 
047514 

100 

053517 
043106 
052040 
100 
053517 
026116 
040524 

042527 
020054 
044440 
041516 

042522 
052040 
051106 
047125 

045501 
041516 
042101 

050043 
026440 
020104 
040524 
022456 
051120 
052520 
042526 
052040 

040517 
042101 
052111 
042520 
052504 

050040 
100 
050043 
040043 
051120 
100 
051120 
047503 



047122 
042504 
026506 
040056 
052440 
041516 
043040 
051527 

051105 
020054 
050101 

051105 
047040 
042520 

020122 
040524 
020116 
027110 

047515 
050101 
046517 
044103 

020105 
020110 
027131 

043522 
051040 
026130 
046U4 
040043 
032107 
041516 
044522 
051505 

020104 
0SU05 
020110 
050040 
042S03 

043522 

043S22 

033507 

051505 
052116 



,ASCII 'ITURN READER OFF-LINE, R' 



.ASCII 'ISET UP PUNCH AS FOLLOWSl R' 



IM12t .ASCII 'POWER OFF, NO TAPE.i' 



IM13I .ASCII 'POWER ON, NO TAPE.t' 



.ASCII 'POWER ON, TAPE IN PUNCH, f 



.ASCII 'IREMOVE TAPE FROM PUNCH, i' 



IM16I .ASCII 'tMAKF PUNCH READY,?' 



IM17I .ASCII •%#PRG10 - READ X, STALL Y,%8i' 



IM20I .ASCII •%#PPG4, PUNCH VERIFY TEST,' 



.ASCII '%LOAD READER WITH TAPE PRODUCED 



, ASCII 'BY PRG3,i« 

IM21I .ASCII '%«PRC6%»i' 

IM22I .ASCII '%»PRG7|»»' 

IM23I .ASCII '%PRgS8 CONfINUE,»' 
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3648 
3649 
3690 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 



017040 
017046 
017054 
017062 
017070 
017076 
017104 
017112 
017120 
017126 
017134 
017142 
017150 
017156 
017164 
017172 
017200 
017206 
017214 
017221 
017226 
017234 
017242 
017250 
017252 
017260 
017266 
017274 
017302 
017310 
017315 
017322 
017330 
017336 
017344 
017352 
017360 
017364 
017372 
017400 
017404 
017412 
017420 
017426 
017433 
017440 
017446 
017454 
017456 
017464 
017472 
017500 
017501 
017506 
017514 
017522 



0471U 
021445 
027062 
051440 
052040 
046045 
047101 
042520 
020120 
040505 
047101 
042513 
054504 
050045 
041440 
052516 
051440 
052040 
027107 

045 
031461 
020120 
020104 
040056 
021445 
020056 
047111 
040505 
052520 
042524 

045 
050040 
051040 
020054 
020110 
020113 
051105 
047514 
020116 
051105 
051045 
020122 
020122 
342523 

045 
051105 
051040 
040056 
021445 
020110 
042522 

100 

045 
042504 
042505 

100 



042S25 
05U20 



042S20 
051305 
040517 
020131 
046040 
047111 
042504 
020104 
051040 
022456 
042522 
047117 
020105 
040524 
046511 
021445 
050043 
020056 
050123 
042524 

051120 
047503 
042105 
042504 
041516 
052123 
040515 
047125 
040505 
052520 
046102 
042514 
020054 
042101 
042522 
040056 
040505 
051105 
044502 
027124 
042522 
047040 
040505 

052520 
047516 
042101 

051043 
020122 
020104 



040056 
030507 
051124 
042105 
027124 
020104 
040524 
047517 
051040 
020122 
040515 
040505 
040043 
051523 
044524 
047524 
052122 
047111 
100 
043522 
052120 
042505 
052123 

032507 
041115 
051040 
026522 
020110 
056 
042513 
044103 
054504 
041516 
047101 
042101 

044440 
042101 

042504 
047522 
020124 
100 
042101 
052117 
054504 

041516 
020124 
027131 

040505 
050123 
020072 
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IM24I , ASCII •%(»PRGi2, PTB SPEED TEST,' 

.ASCII '%LOAD ANY TAPE LOOP IN READER ' 

gASCII 'AND MAKE READY, %##' 

IM24AI .ASCII '%PRESS CONTINUE TO START TIMING, %#»' 

IM25I .ASCII '%«PRG13, PTP SPEED TEST,?' 

IM26J .ASCII '%#PRG5, COMBINED READER-PUNCH TEST,' 

.ASCII 'IMAKE PUNCH READY, PUNCH BLANK LEADER, 

.ASCII 'LOAD IN READER,?' 

SMii .ASCII '%READER ERROR BIT SET,?' 

SM2I .ASCII '%READER NOT READY,?' 

SM3J .ASCII 'liPUNCH NOT READY,?' 

SM4I .ASCII '%#READEP SPEED I ?' 



.) 
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3704 


017523 


045 


050043 


047125 


SM5: 


.ASCII 


'%«PUNCH SPEED 1 ?' 


3705 


017530 


044103 


051440 


042520 








3706 


017536 


042105 


035040 


040040 








3707 


017544 


020040 


020040 


041440 


ACPSJ 


.ASCII 


CHARS PER SEC,?' 


3708 


017552 


040510 


051522 


050040 








3709 


017560 


051105 


051440 


041505 








3710 


017566 


040056 












3711 


017570 


021445 


051105 


047522 


EM0S 


.ASCII 


'%#ERROR P ' 


3712 


017576 


020122 


020120 










3713 


017602 


020040 


020040 


020040 


APNUMBl 


.ASCII 


T ' 


3714 


017610 


020124 












3715 


017612 


020040 


020040 


020040 


atnumb: 


.ASCII 


PC ' 


3716 


017620 


041520 


040 










3717 


017623 


040 


020040 


020040 


apcj 


.ASCII 


' ?' 


3718 


017630 


040040 












3719 


017632 


020040 


040504 


040524 


EMU 


.ASCII 


' DATA ERROR S/Bj ' 


3720 


017640 


042440 


051122 


051117 








3721 


017646 


020040 


027523 


035102 








3722 


017654 


040 












3723 


017655 


040 


020040 


020040 


ASBt 


.ASCII 


WASI ' 


3724 


017662 


053440 


051501 


020072 








3725 


017670 


020040 


020040 


100 


AWASI 


.ASCII 


• ?• 


3726 


017675 


040 


042522 


042522 


EM21 


.ASCII 


' REREAD ERROR, 1ST READJ ' 


3727 


017702 


042101 


042440 


051122 








3728 


017710 


051117 


020056 


030440 








3729 


017716 


052123 


051040 


040505 








3730 


017724 


035104 


040 










3731 


017727 


040 


020040 


020040 


ORGRDl 


.ASCII 


' WASl • 


3732 


017734 


053440 


051501 


020072 








3733 


017742 


020040 


020040 


100 


SUBRDJ 


.ASCII 


' ?' 


3734 


017747 


040 


054523 


041516 


EM3I 


.ASCII 


' SYNC ERROR.?' 


3735 


017754 


042440 


051122 


0511|7 








3736 


017762 


040056 












3737 


017764 


046045 


040505 


042504 


EM4I 


.ASCII 


'%LEADER ERROR, S/B| ' 


3738 


017772 


020122 


051105 


047522 








3739 


020000 


027122 


020040 


027523 








3740 


020006 


035102 


040 










3741 


020011 


040 


020040 


020040 


ESBl 


.ASCII 


• WASl • 


3742 


020016 


053440 


051501 


020072 








3743 


020024 


020040 


020040 


100 


EWASI 


.ASCII 


• ?' 


3744 


020031 


045 


042514 


042101 


EM5I 


.ASCII 


'%LEADER ERROR, S/B BETWEEN 


3745 


020036 


051105 


042440 


051122 








3746 


020044 


051117 


020056 


027523 








3747 


020052 


020102 


042502 


053524 








3748 


020060 


042505 


020116 










3749 


020064 


020060 


047101 


020104 




.ASCII 


'0 AND 3, WAS 1 ' 


3750 


020072 


027063 


053440 


051501 








3751 


020100 


035040 


040 










3752 


020103 


040 


020040 


040040 


FWASI 


.ASCII 


?• 


3753 


020110 


046440 


052101 


044103 


EM6I 


.ASCII 


• MATCH ERR, 9' 


3754 


020116 


042440 


051122 


040056 








3755 












.EVEN 




3756 


020124 


003407 






EM7« 


3407 


^DOUBLE BELL 


3757 


020126 


021445 


052120 


020122 




.ASCII 


•%«PTR NRPi* 


3758 


020134 


051U6 


040120 










3759 


020140 


043040 


046101 


042523 


EM10I 


.ASCII 


• FALSE RDR, INTR?' 
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3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 



020146 
0201S4 
020161 
020166 
020174 
020201 
020206 
020214 
020222 
020223 
020230 
020232 
020236 
020244 
020246 
020254 
020262 
020270 
020273 
020300 
020304 
020312 
020314 
020322 
020330 
020336 
020340 
020346 
020354 
020357 
020364 
020372 
020375 
020402 
020410 
020416 
020424 
020425 
020432 
020440 
020446 
020454 
020462 
020463 
020470 
020476 
020504 
020512 
020520 
020521 
020526 
020534 
020542 
020550 
020556 
020564 



051040 
047111 

040 
02010S 
047UI 

045 
042440 
020106 

100 

045 
04004S 
037445 
020040 
040040 
051445 
020124 
047111 
020056 

040 
020075 
021445 
040040 
042445 
050040 
046501 



042445 

052040 

020107 

045 

020122 

020114 

045 

020122 

041501 

047503 

100 

045 

044103 

020117 

020110 

044511 

100 

045 

044103 

020117 

020110 

044511 

100 

045 

051523 

044524 

044127 

040505 

052123 

040440 



051104 
051124 



020056 
10 



040506 051514 

052520 020116 

051124 100 

051120 031S07 

042U6 047440 

040520 051523 

043536 040045 

040043 

020040 020040 



046105 
047522 
020105 
100 
047040 



041505 
052125 
047516 



053523 036522 



052116 
047522 
047040 

052116 
046511 

100 
047105 
052123 

100 
047105 
044103 
042524 
047125 

051461 
051101 
052520 
040450 
020051 

047062 
051101 
052520 
040450 
020051 

050040 
041440 

052516 020105 

047105 051040 

054504 021445 

044522 042513 

054516 045440 



051105 
051107 
027117 

051105 
047111 

042524 
046101 

042524 
051101 
020122 
020124 

020124 
052040 
041516 
041523 
020075 

020104 
052040 
041516 
041523 
020075 

042522 
047117 



EMlli .ASCII 



P3ENDI .ASCII 



SCTLGI 
SCBLFI 
SQUESTI 
IVALUEl 

SRTNi 



.ASCII 
.ASCII 
.ASCII 
.ASCII 



» FALSE PUN INTRI' 
»%PRG3 END or PASSi' 



'l-Gli* 



9* 



$NEW| 

$SWREQ| 

SSTESTI 

STIMEj 

SSTALLI 

SNUMCRl 



.ASCII 'ISELECT ROUTINE NO, 8' 

.ASCII » NEWa ©• 

.ASCII '%#SWRs g' 

.ASCII '%ENTER PROGRAM NO, @' 

.ASCII 'lENTER TIMING f 

.ASCII '%ENTER STALL %* 

.ASCII »%ENTER CHARACTER COUNT ?' 

.ASCII '%1ST CHAR TO PUNCH (ASCII) a 9' 



SCH2I .ASCII '%2ND CHAR TO PUNCH (ASCII) s 0' 



SSKEYi .ASCII '% PRESS CONTINUE WHEN READY%#' 



.ASCII 'STRIKE ANY KEY AT END OF TIMING%gi' 
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3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 



020572 
020600 
020606 
020614 
020617 
020624 
020632 
020640 
020646 
020654 
020662 
020670 
020676 
020704 
020711 
020716 
020717 
020724 
020732 
020736 
020744 
020752 
020756 
020764 
020772 
020773 
021000 
021006 
021014 
021020 
021026 
021034 
021042 
021050 



054505 
047105 
052040 
022507 
045 
044103 
020117 
024040 
024511 
031045 
04051H 
051040 
040450 
020051 
045 
040 



022524 
025045 
026504 
047516 
020040 
040510 
100 
045 
042116 
026461 
026501 
041520 
040505 
052520 
042524 
040043 



040440 
020104 
046511 
100 
051461 
051101 
042522 
051501 
036440 
042116 
020122 
040505 
041523 
020075 
050043 



020124 
043U7 
047111 

020124 SRDll .ASCII '%1ST CHAR TO READ (ASCII) e 0' 
052040 
042101 
044503 
040040 

041440 SRD2I .ASCII '%2ND CHAR TO READ (ASCII) « 9' 
047524 
020104 
044511 
100 
036503 PCHLTI .ASCII •%«PC= ' 



044055 
040043 
025052 
052122 
020056 
020040 
052114 

046443 
041505 
055104 
022505 
030461 
042504 
041516 
052123 



020040 GWASJ .ASCII ' 
046101 



051040 
026522 
020110 
022523 



-HALT%«3' 



047105 ENDRTNi .ASCII '%«»»END«RTN NO, * 
020116 

026440 RTNNi .ASCII ' -HALT%»f' 
021445 

044501 STITLEl .ASCII 'IftMAINDEC-l 1-DZPCA-E%' 

030455 

041520 



.ASCII 'PCll READER-PUNCH TESTS%#&' 
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ACNV 


005U2 


ACNVB 


005046 


ACNVC 


005074 


ACNVM 


005126 


ACNVX 


005110 


ACNV4 


005054 


ACNV6 


005026 


ACPS 


017544 


ADTENP 


005364 


APC 


017623 


APGEND 


015263 


APNUMB 


017602 


ARDA 


002672 


ARDB 


002710 


ARDER 


002530 


AREAO 


002662 


AREAOl 


002666 


ARRDY 


002642 


ARRDYA 


002654 


ASB 


017655 


AINUMB 


017612 


AT0 


005432 


AT0A 


005450 


AT0E 


005456 


ATi 


005462 


ATIA 


005500 


ATlE 


005506 


AT10 


006104 


AT10A 


006114 


ATt0E 


006134 


ATI! 


006140 


ATllA 


006162 


AT12 


006174 


ATt2A 


006204 


ATi2El 


006236 


AT12E2 


006242 


AT13 


006246 


ATUA 


006256 


AT14 


006314 


AT14A 


006324 


ATHC 


006366 


AT15 


006376 


AT15A 


006406 


AT15E 


006442 


AT16 


006446 


AT16A 


006456 


AT16B 


006506 


AT16E 


006524 


AT17 


006530 


ATi7R 


006540 


AT17B 


006556 


AT17E 


006602 


AT2 


005512 



AT2A 


005546 


AT20 


006630 


AT20A 


006650 


AT20B 


006670 


AT20X 


006740 


AT21 


006744 


AT21A 


006760 


AT21B 


007012 


AT21E 


007010 


AT22 


007014 


AT22A 


007030 


AT22E 


007064 


AT23 


007070 


AT23A 


007104 


AT23B 


007144 


AT23E 


007142 


AT24 


007146 


AT24A 


007156 


AT24C 


007214 


AT24D 


007230 


AT24E1 


007210 


AT24E2 


007234 


AT25 


007240 


AT25A 


007254 


AT25B 


007314 


AT25E 


007312 


AT26 


007316 


AT26A 


007350 


AT26B 


007410 


AT26E1 


007402 


AT26E2 


007406 


AT27 


007412 


AT27A 


007444 


AT27C 


007500 


AT27D 


007514 


AT27E1 


007524 


AT27E2 


007474 


AT27E3 


007520 


AT3 


005562 


AT3A 


005616 


AT30 


007530 


AT30A 


007576 


AT30B 


007624 


AT30C 


007632 


AT30D 


007654 


AT30EI 


007656 


AT30E2 


007620 


AT30E3 


007652 


AT4 


005630 


AT4A 


005672 


ATS 


005704 


AT5A 


005746 


AT6 


005760 



AT6A 


005776 


AT6B 


006020 


AT6E1 


006014 


AT7 


006042 


AT7A 


006060 


AWAS 


017670 


AIST 


005102 


BCHECK 


004372 


BDCNV 


005256 


BDCNVA 


005276 


BELL B 


000007 


BIT0 s 


000000 


BITI « 


000002 


BIT10 a 


002000 


BITU s 


004000 


BIT12 s 


010000 


BIT13 a 


020000 


BIT14 s 


040000 


BIT15 8 


100000 


BIT2 8 


000004 


BIT3 s 


000010 


BIT4 a 


000020 


BIT5 a 


000040 


BIT6 8 


000100 


BIT7 K 


000200 


BITB a 


000400 


BIT9 a 


001000 


BMOVA 


005174 


BMOVE 


005166 


BRCTR 


001242 


BROBB 


003210 


BRDCC 


003222 


BRDDD 


003230 


BREAD 


003102 


BREADA 


003144 


BREADS 


003162 


BREADC 


003216 


BSYNC 


004452 


BT0 


007724 


BT0A 


007740 


BTl 


007752 


BTIA 


007774 


BT2 


010010 


BT2A 


010032 


BT2C 


010042 


BT3 


010062 


BT3A 


010112 


BT3C 


010120 


BT4 


010140 


BT4A 


010170 


BT4C 


010176 


CC a 


177776 


CHAIN 


002110 



CHALT 3 


104010 


CHLT 


002462 


CHNAA 


002204 


CHNB 


002244 


CHRl 


001402 


CHRIA 


001410 


CHR2 


001404 


CHR2A 


001412 


CHR3 


001406 


CHR3A 


001414 


CKSWR a 


104020 


CKSWRR 


015120 


CLEAN 


001716 


CM2 


015267 


CM3 


015325 


CM4 


015363 


CM4B 


015453 


CM5 


015467 


CNTL s 


104015 


CNTLU 


015156 


CNVCTR 


005356 


COUNT 


001372 


CPKPL 


014616 


CPKPLA 


014644 


CPRDY 


005204 


CPRDYA 


005222 


CRBUF 


001400 


CRDA 


013122 


CRDAA 


013134 


CBEAD 


013106 


CREADA 


013174 


CREADB 


013216 


CREADC 


013226 


CRTA 


001672 


CRTB 


001702 


CTRA 


001420 


CTRB 


001422 


CTRC 


001424 


CTRD 


001426 


CT0 


010240 


CT0A 


010256 


CT0E 


010264 


CTl 


010270 


CTIA 


010306 


CTIE 


010314 


CT10 


010652 


CT10A 


010662 


CT10B 


010670 


CT10C 


010734 


CTU 


010742 


CTUA 


010752 


CTllE 


011000 


CT12 


011004 



CTUA 


011020 


CT12C 


011050 


CT12E 


011046 


CTU 


011052 


CTUA 


011062 


CTUC 


011120 


CTUD 


011134 


CTUEl 


011114 


CTUE2 


011140 


CT14 


011144 


CT14A 


011160 


CTi4E 


011214 


CT15 


011220 


CTISA 


011234 


CT15B 


011274 


CT15E 


011272 


CT16 


011276 


CT16A 


01U12 


CT16B 


011354 


CT16E 


011352 


CT17 


011356 


CT17A 


011410 


CT17B 


011454 


CT17C 


011470 


CT17E1 


011450 


CT17E2 


011474 


CT17E3 


011500 


CT2 


010320 


CT2A 


010354 


CT20 


011504 


CT20A 


011536 


CT20B 


011572 


CT20C 


011600 


CT20D 


011622 


CT20EI 


011624 


CT20E2 


011566 


CT20E3 


011620 


CT3 


010370 


CT3A 


010424 


CT4 


010436 


CT4A 


010472 


CT5 


010504 


CT5A 


010514 


CT5B 


010544 


CT6 


010566 


CT6A 


010576 


CT7 


010630 


CT7A 


010640 


CUPTST 


001254 


DECVAL 


015256 


DELAY a 


104000 


DELAYXa 


104400 


DIGIT 


005360 



) 
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DISPLA 


001206 


ERRA 


003320 


1M15 


016567 


PBINB 


013104 


P3END 


020201 


DI5PRE 


000174 


ERROR E 


! 104006 


IM16 


016620 


PBNA 


013004 


RBIN 


013272 


DLCNT 


003716 


ERRORla 


■ 104007 


IM17 


016643 


PBNB 


013016 


RBINA 


013276 


DLCTR 


003714 


ERRT 


001362 


IM2 


015756 


PC a 


%000007 


RBINB 


013312 


DLY 


003566 


ERRl 


003244 


IM20 


016700 


PCHCNT 


013234 


RBINC 


013352 


DLYA 


003610 


ERRIA 


003272 


1M21 


017003 


PCHLT 


020711 


RBIND 


0U402 


DLYB 


003616 


ESB 


020011 


IM22 


017014 


PCHLVL 


001226 


RBUSY 


013236 


DLYX 


004310 


ET0A 


012330 


IM23 


017025 


PCHVTR 


001224 


RCMSK 


004366 


DLYXA 


004322 


ET0B 


012336 


IM24 


017046 


PCSIM 


002554 


RCNT 


001376 


DLYXB 


004330 


ET0C 


012344 


IM24A 


017156 


PFRNT 


012226 


RDRLVL 


001222 


DLYX0 a 


004314 


ET0D 


012374 


IM25 


017221 


PIND 


004704 


RDRVTR 


001220 


DLYXl a 


004326 


ET0E 


012402 


IM26 


017252 


POPSP a 


005726 


RETRN 


002634 


DT0 


011662 


ET0r 


012410 


1M3 


016014 


P0PSP2= 


022626 


RIND 


004676 


DT0A 


011672 


ET0G 


012432 


IM4 


016051 


PPB 


001216 


RNCNT 


004370 


DT0B 


011712 


ET0H 


012476 


IM4S 


016105 


PPS 


001214 


RNGEN 


003030 


DTI 


011732 


ET0I 


012530 


IM5 


016271 


PRB 


001212 


RPl 


003076 


DTIA 


011750 


ET0J 


012542 


If"6 


016334 


PPGID 


001266 


RP2 


003100 


DTIB 


011770 


ET0K 


012572 


IM7 


016360 


PPGNUM 


001240 


RTINTA 


004116 


DT2 


012012 


EWAS 


020024 


INBIN 


004654 


PRGTAB 


001270 


RTINTB 


004134 


DT2A 


012036 


FORWD 


002364 


INCRTN 


002100 


PBG0 


005376 


BTINTC 


004152 


DT2B 


012056 


FRST 


001370 


INGXOR 


001570 


PRGl 


007666 


RTMCAL 


003720 


DT2C 


012064 


FWAS 


020103 


INHPRT 


003300 


PRG10 


014134 


RTMCLA 


003750 


DT2D 


012112 


GETRDY 


001710 


ITA 


014246 


PRGll 


014322 


RTMCLB 


003754 


DT3 


012114 


GOTST 


002416 


ITB 


014272 


PRGllA 


014344 


RTMERR 


004064 


DT3A 


012124 


GOTSTA 


002436 


ITX 


014320 


PRGUB 


014360 


RTMINT 


004044 


DT3B 


012144 


GRCNT 


004346 


ITY 


014314 


PRG12 


014372 


RTNN 


020T56 


DT3C 


012156 


GTBIN 


004712 


KSTART 


001252 


PRGU 


014524 


RTNNO 


001256 


DT3D 


012204 


GTBINP 


004760 


KTA 


014416 


PRG2 


010216 


R0 = 


!%000000 


DT4 


012206 


GTRDYA 


001736 


KTB 


014450 


PRG3 


011634 


Rl a 


'1000001 


DT4A 


012216 


GTRDYB 


001742 


KTC 


014460 


PRG4 


012302 


R2 a 


%000002 


DVOND 


001244 


GTRDYC 


001760 


KTD 


014476 


PRG5 


012660 


R3 a 


%00000i 


DVQUOT 


001246 


GTRDYD 


00'2062 


KTE 


014504 


PRG6 


013454 


R4 a 


%000004 


ECHK 


012622 


GWAS 


020717 


KTF 


014512 


PRG6A 


013562 


R5 a 


%000005 


ECHKA 


012656 


HERE 


002350 


LOGIC 


002340 


PRG7 


013606 


R6 a 


%000006 


EHALT a 


104001 


HSPCH 


005236 


LTA 


014540 


PRS 


001210 


SCOPE a 


10<t013 


EHLT 


002514 


HT0A 


013720 


LTB 


014554 


PRTY0 X 


000000 


5C0PTR 


001264 


EHLTA 


002526 


HT0B 


013770 


LTC 


014572 


PRTYl a 


000040 


SMI 


017404 


EMIINT 


002442 


HT0C 


013776 


LTD 


014600 


PRTY2 a 


000100 


5M2 


017433 


EHTTAB 


001320 


HT0D 


014030 


LTE 


014606 


PRTY3 a 


000140 


SM3 


017456 


EMTX a 


000021 


HT0E 


014054 


MACHER 


000004 


PRTY4 a 


000200 


5M4 


017501 


EM0 


017570 


HT0F 


014104 


MANUALS 


100000 


PRTY5 a 


000240 


SM5 


017523 


EMI 


017632 


HT0G 


014126 


MESS 


002042 


PRTY6 a 


000300 


SP a 


%000006 


EM10 


020140 


XCIR 


001262 


MSEC 


001250 


PRTY7 a 


000340 


SPBUT a 


001200 


EMU 


020161 


IM0 


015540 


NOP a 


000240 


PSW a 


177776 


SRESETa 


104002 


EM2 


017675 


IM0A 


015574 


NTYET 


002016 


PTINTA 


004254 


SRSETT 


003012 


EM3 


017747 


XM0B 


015627 


NXTST 


001260 


PTMCAL 


004170 


SRTN 


020246 


EM4 


017764 


IM0C 


015653 


OPEN s 


000000 


PTMERR 


004076 


STAL 


004262 


EMS 


020031 


IMl 


015722 


OPTS 


014722 


PTMINT 


004234 


STALA 


004302 


EM6 


020110 


IMi0 


016405 


OPTSELs 


104014 


PT0 


004700 


STALB 


004304 


EM7 


020124 


IMll 


016434 


ORGRD 


017727 


PT0P 


004706 


STALL a 


104005 


ENDRTH 


020736 


IM12 


016467 


OUT 


015240 


PTi 


004702 


START 


001432 


ERCTR 


001416 


INU 


0165U 


PBXN 


012766 


PTIP 


004710 


STLMSK 


004306 


ERR 


003234 


IM14 


016536 


PBINA 


013070 


PUNCl 


013604 


STPCHVa 


104012 



STPPA 


003000 


STPRA 


0027S0 


STPtPV 


003762 


STPTBV 


002732 


STRDRVa 


104011 


SUBRD 


017742 


SUiTEN 


005316 


80BTHA 


005322 


SUBTNB 


005336 


SNR 


001204 


SWREG 


000176 


SWTL 


015242 


SYCTRA 


004652 


SYNCA 


004542 


a a 


021052 
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LE 


09144 


PAGE S3 


SYNCB 


004550 


TSM3 


002716 


SYNCC 


004636 


ITIN 


014654 


Sll 


002156 


TTYIN 


8 104016 


82$ 


002166 


lYP 


003400 


TENPWP 


005362 


lYPA 


003410 


TIB 


001374 


TYPC 


003440 


TKB 


001232 


TYPD 


003466 


TKS 


001230 


TYPDAT 003532 


II.X 


014724 


TYPE 


» 104003 


TMCON 8 


004136 


TYPES 


a 104004 


TMPl 


001364 


TYPF 


003504 


TMP2 


001366 


TYPG 


003516 


TPB 


001236 


TYPS 


003534 


TP5 


001234 


TYPSA 


003560 



TYPSB 


003562 


VALID 8 


104017 


VALINP 


014740 


WNZERO 


013240 


XCNT 


001430 


XCT 


006362 


XOR 


002354 


XORA 


001662 


XORFliG 


002040 


XP 


010730 


XPBE 


010736 


XTP 


006742 


ICHI 


020425 


«CH2 


020463 



tCRLF 


020230 


ICTLG 


020223 


$NEW 


020273 


tNUMCR 


020375 


$QUEST 


020232 


SRDl 


020617 


$ftD2 


020654 


iSKEY 


020521 


9STALL 


020357 


ISTEST 


020314 


ISMRCQ 


020304 


♦ TIME 


020340 


ITITLE 


020773 


IVALUE 


020236 



ERRORS DETECTED t 
DEFAULT GLOBALS GENERATED I 

»,DZPCAE/S0L8DZPCAE.8RC 
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RUN-TIME RATIOl 75/37=2,0 
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